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INTRODUCTION 

This article is part #2 of a series of four articles cover- 
ing the LLL 8080 BASIC Interpreter program released 
to the public domain by Lawrence Livermore 
Laboratories. This article covers the description of the 
BASIC Interpreter and includes the assembly listing of 
the LLL 8080 BASIC Interpreter program. 

DESCRIPTION OF BASIC INTERPRETER 

Following is a brief description of the BASIC in- 
terpreter. Hopefully, with this description, it will not be 
a major project to modify the BASIC to satisfy the 
reader's specific needs. 

Formats — Source statements are stripped of blanks 
on input (character strings enclosed in " "s are an 
exception) and stored as is in memory, using the 
following format: 



Binary equivalent 
of line no. 



Length of ASCII 
source statement 



□ 



Forward pointer 
to next sequential 
line 



ASCII source statement 



The forward pointer links statements by ascending line 
numbers. The last line's forward pointer (supposedly 
an end statement) has value 177777s to indicate end 
of the list. 

The symbol table is built up at run time and begins 
after the most recently entered source statement (the 
variable STSPAC points to where the symbol table will 
start). Symbol table entries are shown below: 



SCALAR-VARIABLE FORMAT 



A£ 
let 


Cll 
ter— . 


pO-9 


ASCII 
bin 
















94 


Variab: 
NTER 


n 

e name 

FACE 


AGE 


Forwart 


j point* 


r 




Variab 


e value 





By John Dickenson and Jerry Barber 



ARRAY-VARIABLE FORMAT 



Bin i-ASCII 

letter 



Bin p 



EL 



Array Forward 

name pointer 



Array elements 



Subroutines 
subroutines, 
routine: 

ALPHA - 



— Following is a list of potentially useful 
with a brief description of each sub- 

- Value pointed to by H and L is tested to 
see if it is an ASCII letter. 

CY = 1 => Yes 
CY = => No 

NUMB — Same as above but tests for a decimal 
number (ASCII 0-9). 

CHAR2 — Inputs a character from the teletype to a 
register. 

CHAR5 —Same as above for HSR (High Speed 
Paper Tape Reader). 

CHK1 — Checks to see if HL are equal to 177777s 
(-1). 

CY = 1 => Yes 
CY = => No. 

CONV — One of the floating-point routines. 
(CVRT) Converts floating-point number to a 

character string. Output is padded to the 

output buffer. 

COPDH — Copies floating-point number pointed to 
by D, E to location pointed to by H, L; 
uses copy. 

COPY — One of the floating-point routines. Copies 
floating-point value pointed to by A, L to 
location pointed to by H, C. 

CUB — Converts the integer-character string 

pointed to by H, L to its binary 
equivalent. Vale returns in D, E registers. 

DCOMP — Double-byte comparison routine. Com- 
pares value in CB to the value in ED. 
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Z = 1 => 
CY = 1 = > 
CY = = > 



CB = ED 
CB > ED 
CB < ED. 



DFXL 



— One of the floating-point routines. Used 
to float an unsigned integer H, L point to 
first of four bytes; integer is right justified 
in first three bytes. 

EVAL — Evaluates an expression the first element 
of which is pointed to by H, L and the 
length of which is in C. Used to evaluate 
expressions wherever they are legal in 
BASIC. C usually contains the length of 
the source statement line containing the 
expression. 

FINPT — One of the floating-point routines. 
Converts character string to floating- 
point number. The variable HLINP con- 
tains a pointer to the character string, 
and the variable CREG contains the length 
of line containing character string. Mode 
— => data comes from teletype (i.e., 
only delimiters are g's). Mode = 1 => 
data comes from source statements. 

FIX — Fixes a floating-point number. DE points 

to number to be fixed. Error code 13 is 
given if number is too big to fix. 

FSYM — Finds symbols in symbol table. BC con- 
tains symbol. Returns with HL pointing 
to symbol value. 
CY = 1 => symbol was found. 
CY = and a scalar => symbol not 
found, but inserted and initialized to 0. 
CY = and an array => not found, no 
action taken: HL are meaningless. 

LADD — Floating-point add routine. 

LSUB — Floating-point subtract routine. 

LOIU — Floating-point divide routine. 

LMUL — Floating-point multiply routine. 

LMCM — One of the floating-point routines. Com- 
pares two floating-point values, HL Point 
to first floating-point values and H B point 
to second floating-point value. 
z =1 => Equality 
Cy=1 => first < second 
(Note: compares absolute only, does not 
reference mantissa sign.) 

MCHK — Waits for flag from port 3. Proper mask is 
sent in register B. 

MEMFUL — Checks to see if memory is full. HL point 
to location of memory to be checked. 
Memory is considered full if it is within 
50io locations of the current value of 
stack pointer. 

MULT — Multiplies two two-byte binary numbers. 
HL point to last byte of four bytes. First 
two contain first number. Last two con- 
tain second number. Answer returns in 
BCDE. 



NSRCH — Routine to locate source line in memory 
passed binary value of line number in DE. 
Returns address Of line in HL, CY=1 => 
not found. 

OUTR — Used by CONV (CURT) to pad output to 
output buffer. 

PAD — Pads characters to output buffer. A con- 

tains character; B contains number of 
pads. 

SYMSRT — Checks a character string to see if it is a 
BASIC symbol. HL contains address 
pointing to 1st character of symbol, C 
contains length of line that contains sym- 
bol. A contains type of symbol sought. 
= command 1= keyword 

z=operator or delimiter 3=function 

Returns with 377s in a register if nothing 
found. Otherwise A contains symbol 
number in appropriate KDAT table. Thus, 
for symbol type 2, if a 4 is returned, the 
symbol found was the fourth one 
(starting with 0) in table KDAT3 (KDAT 
concatenated with 2 and 1 or A')'. CIS is 
updated, but HL is not. 

TTYIW — Inputs a line from teletype. Stores 
starting address at location pointed to by 
HL. Line edits. Returns length of line in A 
register (maximum line length is 72 
characters). 

VALUE — Called with HL pointing to A variable, 
constant, or function; C contains line 
length, returns with DE pointing to 
floating-point value. HL, C are updated. 

VAR —Called with HL pointing to character 

string, C has line length. Determines if 
character string is a variable. If so, 
returns with CY= 1 , DE pointing to value 
(subscripts of arrays are evaluated, etc.). 
HL, C updated. If not, a variable returns 
CY = 0, HL, C untouched. 

WRIT — Dumps contents of output buffer to 
teletype. Uses entry WRIT1 with. D 
register equal to one to suppress CR/LF. 

ZROL — Part of floating-point subroutines. Writes 
a floating-point zero, starting at location 
pointed to by HL. 

The preceding list contains those subroutines most 
likely to be used by someone modifying BASIC. If you 
plan on using one of the routines, you should examine 
it and its comments carefully. 

Variables — Following is a list of interpreter variables, 
with a description of each variable: 

MEMST — Assembly time variable. Contains the 
first available RAM location. This is 
where active variables start. 

MEM END — Assembly time variable. Contains the last 
available location in RAM. 
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SEND 

OBUFF 

IBUF 

STUNE 

NLINE, 
NL2, 
NL4, 
NL6 



KLINE, 
KL2. 
KL4, 
KL6 



PLINE, 
PL2, 
PL4, 
PL6 

KASE, 
LEN 

MULT1. 
MULT2 

SBSAV 

STSPAC 

LPNT 
CPNT 

KFPNT 

FREG1, 
FREG2 

HLINP, 
CREG 

NXTSP 

GREG 

MODE 
MESCR 



Has value 6, used with RST instruction to 
print characters via ODT. 

Output buffer, the first location contains 
the number of characters in the buffer + 1 . 

Input buffer, occupies same area as 
OBUFF. 

■ Points to first source line to be executed. 
If no source, contains 177777s. 

- Contain address, binary-equivalent line 
number, forward pointer, and length of 
next input line. 



• Same as above, but used by a subroutine 
that inserts lines in sequential order 
(insert). 



Subroutine insert to order statements se- 
quentially. 



— Temporary storage for command mode 

routines. 

— Used to store binary values to be mul- 
tiplied. 

— Temporary storage for call-statement 
processor. 

— Next available location in memory, sym- 
bol table starts here at run time. 

— Pointer to the current line at run time. 

— Pointer to current character in current 
line at run time. 

— Point to next sequential line at run time. 

— Two floating-point registers. 

— Temporary storage for H L and C registers 
for routine IN P. 



Pointer to next available space of 
memory for symbol table. 

General register, in and out instructions 
are stored here and executed for get and 
put functions. 

•Indicates to INP routine whether input 
data comes from source or teletype. 

-Temporary storage for call-statement 
processor. Points to next available space 



after symbol table. Area after the symbol 
table is used to store intermediate results 
of expressions or constants passed to 
user subroutines. 

VARAD — Temporary storage space for input- 
statement processor. 

VEND — Assembly time variable. Indicates end of 
interpreter variable-storage area and 
where FWAM pointer is to go. 

FWAM — First word of available memory pointer. 
This is where user source programs go. 

Some of the above variables occupy the same area 
of memory. This is because some variables are used 
only in the command mode and others only at runtime. 
To conserve space, they share the same memory 
locations. 

New BASIC Statements — To add additional 
statements to the BASIC, use the following procedure. 
First, insert the statement keyword in the data tables 
for subroutine SYMSRT. Then, insert the starting 
address of the statement processor in the interpreter 
JUMP table. Finally, the statement processor itself 
must be inserted. 

The keyword must be entered in the table KDAT2. 
The first byte must be the keyword length and the next 
bytes hold the ASCII-coded keyword. The table must 
end with A 377s. If the keyword is the Nth entry in the 
table, on return from SYMSRT, the A register will hold 
N-1 if the keyword is found. 

The starting address of the statement processor 
must be inserted into table JTBL. The order of 
keywords in KDAT2 must correspond with statement 
processor addresses in JTBL since, on return from 
SYMSRT, the A register times two is used as offset in 
JTBL to determine processor address. 

The statement processor must be placed 
somewhere in memory. Generally, the first thing done 
in the statement processors is to load the pointer to 
the statement (LHLD CPNT) and increment past the 
keyword (since HL is not updated by SYMSRT). On 
entry, C contains the number of characters in the line 
minus those checked by SYMSRT. The end of the 
processor should be a "JMPIEND" instruction. 

New Functions — New functions must be added to 
SYSSRT Data Table KDAT4 in the same manner as for 
key words. The function itself must be placed in sub- 
routine "VALUE." Presently, the only function in 
VALUE is GET. 

Message Lines — The following description tells how 
to incorporate messages into BASIC output routines. 
Currently, to output a message to the teletype, the user 
executes an LXI H.ODATA, then a call to FORMK 
where K is an integer indicating which message is 
wanted (i.e., K=z indicates "TURN ON PUNCH"). 
FORM pads the message into the output buffer. Then 
A "CALL WRIT" writes the contents of the buffer. 

Suppose the message "POTATO BASIC" is to be 
added. Preceding the form 9 instruction, we will insert 
"F0R10: INR L" At the end of the ODATA table, we 
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add "DB ODAT8 and 377Q.". And, after message 
ODAT 7, we add ODAT8 DB * 12, "POTATO BASIC." 
Now, the following program segment: 

LXI H, ODATA 

CALL FOR10 

CALL WRIT, 



MICROCOMPUTER DEVELOPMENT SOFTWARE 



will cause "POTATO BASIC" to be output to the 
teletype. 

SEE MICROCOMPUTER SOFTWARE DEPOSITORY 
PROGRAM INDEX FOR COPIES OF THIS PROGRAM 



B08O MACRU ASSEMBLER, 



■Of-" FA 

OF FA 
OFF!) 



21 JU 
27FF 

0006 
2100 



2 aa 

216* 

OFUO 
0FO3 
OF Ob 
OFO'i 
OFDC 
OFDF 
2186 
2177 
217C 
2166 
0FE5 
218b 
0FE8 
OFER 
JFEE 
OFFl 
0FF4 
0FF7 
21S8 
21»A 
213C 
218E 
2190 
2194 
2196 
J014 
2196 
21AA 
21AA 



2MA 
21AA 
21AC 
21 AO 



10 JO 

1030 
003 
.U05 
038 
OQA 



21 00 21 
36 01 
21 49 21 
36 FF 



10QU 


36 






iO 


?A 


AA 







i) 


?? 


4H 


/I 






i] 











->1 


5A 







<* 


r.n 


48 







1. 


l.U 


no 


W 












.0 


} 


?i 






023 








024 


v\ 






25 


?\ 








?3 








LI) 






02A 


4F 






02B 


FF 


00 




02D 


CA 


IF 






t.n 






033 


HA 


42 








« 




039 


1)4 




03C 


CI) 


HF 


10 




f.l 






042 


*b 






044 








047 


HC 








i.t; 


9F 


11 










04C 


(,A 


rt\ 


16 


04F 


3D 








(.('. 






53 


CA 








30 






057 


rr 














5IJ 








05b 


fA 






061 


in 






106 




C4 


9C 


11 



2.1 ERRORS = 

BAS30 - bASIC INTERPRETER FOR INTEL BOSO MICRO-PR 

WRITTEN AT THE UNIVERSITY OF IDAHO BY: 

GERALD R. BARBER 

OEPT. UF ELECTRICAL ENGINEEKING ANL) COMPUTER 
MASSACHGSCTTES I^JSTITUTE OF TECHf.OLOGY 
CAMBRIDGE, MASSACHUTTES 

JOHN A. TrETER 
EAST OF CASCADE 
SOUTH OF LANDMARK 
DEADHUUD, IDAHO 

JOHN U. DICKINSUN 

DEPT. OF ELECTRICAL ENGINEERING 

UNIVERSITY OF IDAHO 

MOSCOW. IDAHO 

THIS FILE CONTAINS THE EDIT AND EXECUTION PORTION 
UF THF BASIC INTERPRETER. IT IS DESIGNED TO EXEC 
WITH THE COMPANION FILE CONTAINING Tht FLOATING 
POINT ROUTINES. 

I/O IS ACCOMPI ISHED WITH A TTY AND A HIGH SPEED 
PAPFR TAPE READER. TTY I/O IS DONE THROUGH 
DDT ROUTINES. PAPER TAPE INPUT IS HANDLED 
HANUALY. 

DEFINE LINKAGES FROH FLT PNT PACKAGE IU I/O ROUTINES 

ORG 77722 

JAP |NP 

JMP flUTK 

; DEFINE AODRESSES OF ACTIVE VARIABLES 



MEMST 
Mr MENU 
SENT 
OaUFF 

muF 

SI LINE 

NL INE 

NL2 

NL4 

NL6 

KLINE 

KL2 

KL4 

KL6 

PL INF 

PL 2 

PL4 

SBSAV 

PL 6 

KASt 

LFN 

MUl.Tl 

MULT2 

NXTSP 

STSPAC 

ZKOl 

LPNT 

KLEN 

CPNT 

KTPNT 

FKEG2 

CREG 

LADL 1 

LMUL 

LOIV 

LSUB 

DFXL 

LUCM 

HLINP 

GKEC 

FREG1 

SCR 

CUNV 

HGDF 

FINPT 

MULT 

PTVAL 

OCGMP 

MCHK 

CHAR2 

MESCR 

VARAD 

VNAME 

VLOC 

FLIMT 

NEST 

STAC 

STSIZ 

TOPNS 

BUTNS 



EQU 
EQU 
EOU 
EOU 
EQU 
EQU 
EOU 
L .' 
EQU 
EOU 
EOU 
CQU 
EQU 
EQU 
f QU- 
CQU 
EOU 
EOU 
EOU 
EOU 
EQU 
E'JU 
EOU 
EQU 
EOU 

r j" 

EQU 
EQU 
EQU 
EQU 
FQU 
EQU 
FQU 
EQU 
EQU 
EQU 
FOU 
EQU 
EOU 
EQU 
EOU 
EQU 
EQU 
EOU 
EQU 
EQU 
EOU 
FQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EOU 
EOU 
EQU 
SET 
EQU 
EQU 



HEMST 
MEMST *l 
MEMSTHllti 
MEMSI*U3G 

MEMSI+115Q 

HEMST *117Q 

MEMST*121Q 

MCMST+122Q 

MEMST+124Q 

MEMST+126Q 

MEMST *130Q 

MEMSTH31Q 

MEMST+133G 

MEMST ♦ 135Q 

PL4 

MEMST *137Q 

MEMSTH40Q 

MEMST+141Q 

MEMST *1420 

MEMST-H44Q 

PL INE 

NLINE 

?7!s;; 

KLINE 

KL6 

PL2 

KL4 

MEMST ^2000 

MEMSTt-2040. 

7720Q 

7723d 

77260 

77310 

77340 

77370 

NEMSI+206Q 

MEMST +167Q 

MEMST+174Q 

MEMST+146U 

7745Q 

MEMST *205Q 

7750Q 

7753Q 

7756J 

77610 

77640 

7767Q 

MEMST +2100 

MEM5T+212Q 

MEMST*214Q 

MEMST +216Q 

MEMST+220Q 

MEMST +224Q 

MEMST +226Q 

20 



; DEFINE FWA MEMORY AND START OF 



;MUST BE UN PAGE BOUNDA 
{END UF RAM MEMORY 
JRST FOR ODT 
ilNPUT AND OUTPUT BUFFE 

{same area 

ifirst line of user pro 

{puintep to new line jf 
;binary value of new li 
(forward pointer of new 
{length of new line 
(pointer tc current lin 
{binary equ. uf current 
{forhard pcinter of cur 
{length uf new line 
[previous line puinter- 
jb1nary line number of 
{forward puinter of pre 
{return add. save for c 
{length of previous lin 
{spare storage used as 
{also spare-cften lengt 
[f irst of twu words use 
{second word 

{POINTER la NEXT AVA1LA 
{START UF SYM. TABLE 
{FLOATING PNT. ROUT INfc 
{SOURLE LINE PTR DUPING 
{SPARE-U5ED AS NEEDED 
iCHAK. FTP. DURING EXEC. 
{FWD LINE PTR DURING EX 
{FLOATING POINT REG. *2 
{TEMP. SPACE FOR RUUTIN 
[FLUATING POINT ROUTINE 
{FLOATING POINT ROUTINE 
{FLOATING PU INT ROUTINE 
{FLOATING POINT ROUTINE 
{FLOATING POINT ROUTINE 
{FLOATING POINT ROUTINE 
[TEMP. SPACE FOR ROUTIN 
{GENERAL PURPOSE REGIST 
{FLUATING PNT. REGISTER 
{SCRATCH AREA FUR I/O R 
{FLOATING PNT. OUTPUT R 
{MODE FLAG FOP ROUTINE 
{FLOATING PNT. INPUT RO 
{ADD. VALUE MULT. ROUT I 
{DEFINE LPNI.KFPNT ETC. 
{DOUBLE BYTE COMPARISON 
{CHECK MASK 
{INPUT CHAR. FROM TTY 
[DEFINE MEMORY SCR AREA 
{TEMP SPACE FOR 1NP. ST 
{TEMP SPACE FOR "FOR-NE 
{TEMP SPACE FOR 'FOR-NE 
{TEMP SPACE FOR 'FOR-NE 
{NESTING STACK-PUINTER 
[FUR-NEXT NESTING STACK 
{STACK SIZE, ALLOWS 10 
{TOP OF STACK 
(BCTTCH OF STACK 

{OEF. END OF VAR. STORA 

SUB TABLE 



ORG 
FWAH: DW 

SUBS: DB 

SCHEM EQU 



VEND 
SCHEM 
377Q 



{NOTHING IN SUB TABLE 



{ MAIN ROUTINE— HANDLES ALL USER INPUT 



M4: 
M4A: 



ORG 

LXI 

MVI 

LXI 

MVI 

INR 

MVI 

LHLD 

SHLD 

.XI 

XI 

CALL 

CALL 

.HLD 

NX 

NX 



CALL 
CNC 
CALL 
JMP 



M.377Q 

L 

M.377Q 

FWAM 

NLINE 

SP,McMENO-10 

H, ODATA 

FOR Ml 

WRIT 

NLINE 

H 

H 



NUMB 
WHAT 
INSERT 



CALL SYMSRT 



{INIT1ALIXE THE OUTPUT 
{TO HAVE LENGTH ONE. 
{PUT -1 INTO STLINE 

i-l IS ALWAYS END OF LI 

{GET AOORES OF FWA MEM. 
{STORE IN FREE SPACE PN 
{SET STACK TO HIGH MEMO 
{SET HL TO ODATA (ASCII 
JPAC "READY" 

{GET NEXT LINE FUR ACCE 

{HOVE PAST POINTERS TO 



{GET INPUT FROM TTY 

{MOVE NUMBER OF CHAR TO 

SIS IT 

[YEP SO TRY AGAIN 

{IS INPUT AN ALPHA STRI 

{YEP— GO DECIPHER 

[IS INPUT A NUMERIC STR 

[NOPE — FIND OUT WHATS 

IYEP-- CO INSERT NEW LI 

{LOOP ON PROCESS 

{SET UP SYMBOL TYPE A=0 

{GO FIND COMMAND 

{REG. A RETURNED WITH - 

{ITS A' RUN COMMAND 

{THE OUDE WANTS A PLST 

[HE WANTS A LISTING 

{IT WAS A PURGE COMMAND 
-THEN 



G6S 


CD 08 15 


PTAPC: 


CAl L 


CHAR^ 


{GET CHAR. FRCM READER 


068 


FE 00 




CP[ 





{IS IT LEA0EW7 


,Q(jA 


CA 65 10 




JZ 


PTAPt- 


{YEP — WAIT FOH GCCO I 


060 


CO 05 14 


PTL: 


CALL 


HSRIN 


{GUT CHAR. 


070 


4F 




MOV 


C ,A 




071 


FE 00 




CPI 





{I S IT STILL LEADER? 


073 


CA 65 10 




JZ 


PTAPE 


{YEP — KEEP WAITING 


.076 


CD 22 12 




CALL 


ALPHA 


JIS IT ALPHA STRING? 


07^ 


OA 42 10 




JC 


M4 


{YEP — SO GO INTERPRET 


07C 


CD 8F 10 




CALL 


INSERT 


{NOPE — SO GO INSERT IT 


07F 


n 08 15 




CALL 


CHARd 


{GET NEXT CHAR. 


082 


FE 00 




CPI 





{IS IT LEADER? 


.084 
087 


CA 16' 10 
23 




JZ 

INX 


H2 


{YEP— GC BACK TO KEYBOA 


088 
OS 1 * 


I!, 
?3 




INX 

INX 


H 


[MOVE PAST POINTERS OF 


LOSA 


Zi 




IHX 


it 




.QBR 


23 




INX 






10 DC 


C3 6D 10 




JHP 


PT1 


{LCOP CN PROCESS 






{ ROUTINE TO HANDLE Al L SUURCE 


LINE INPUT. 






{THIS 


INCLUDES 


INSERTION. DELEATIUN. AND 






{ ADDITION UF Nfc«i SOURCE LINES 




10RF 


2B 


Insert 


DCX 


H 


{THE RUUTINE SORTS LINI 


1090 


71 




MI1V 


M,C 


{THE TEXT USING THE FOR 


1091 


23 




INX 


H 


{STORED IN THE TABLE. 


10^2 


CD 2A 12 




CALL 


CVH 


{GET BINARY FOR NEW LIN 


loss 


FE 05 




CPI 




{IS IT H|N. VALUE? 


1097 


OA A2 10 




JC 


ISP.1A 


{I TS A VALID NUMBER 


1G9A 
109D 


C4 9E 11 
7B 




CNZ 
MQV 


WHAT 
A,E 


(INVALID NUMBER — REPORT 


109E 


17 




RAL 






10*3F 


DC 9E 11 




CC 


WHAT 




10A? 
10A5 


2A 4R 2t 
72 


ISR1A: 


LHLD 
MGV 


NLTNf 
M,D 


(PCINT TO NEW LINE 


L0A6 


23 




I NX 


H 




10A7 


73 




MOV 


M,E 




10A8 


21 4B 21 




LXI 


H, NLINE 
PTVAL 




10AB 


CD EE OF 




CALL 


(FIND THE POINTER VALUE 


10AE 


2A 49 21 




LULL) 


STLINE 


{GET START OF SOURCE 


OBI 


CO A3 12 




CALL 


CHK1 


{CHECK FOP. NU TEXT 


0B4 


02 D4 10 
2A 4B 21 




JMC 


ISRT3 


{THERE IS SOHETHING-STA 


0«7 




LHLD 


NLINL 


{THIS IS t IRST LINE 


03A 


72 49 21 




SHLD 


S T L I 'J E 


{MOVE NLINC TO STLINE 


3EJF) 


16 FF 


ISRTl: 


MVI 


D.377Q 


(SET UP ~l FOR END OF L 


OBF 


5A 




MOV 


E.D 

STPNT 
H 

A,M 




OCO 
0C3 


CD 8P 11 
23 




CALL 

INX 

MOV 


{STORE IT AWAY IN POINT 


0C4 


n 


ISP.T2: 


{GETL1NE LENGTH 


OCb 


Cfc 05 




Am 


5 


{ADJUST TO LCN+5 


0C7 


2A 4K 21 




LHI.D 


NLINfc 




OCA 


85 




ADO 


L 




OCH 


6F 




MOV 


L.A 




OCC 


3E 00 




MVI 


A,0 




OCE 


BC 




ADC 


H 




OCF 


67 




MIJV 


H,A 




000 
00 3 


22 4B 21 
C9 




SHLD 

RET 

SHLC 


NLINC 


{STEP PAST NEW LINE 


0D4 


22 52 21 


ISRT3: 


KLINE 


{SET UP CURRENT LINE 


GO I 


21 52 21 


ISRT4: 


LXI 


H.KL1 NE 


{GET CURRfNT LINE AND 


OUA 


CD EE OF 




CALL 


PTVAL 


{SET UP POINTERS 


OOU 


21 4D 21 




LXI 


H , NL2 


{GET BINARY VALUE 


OEO 


56 




MUV 


D.M 


{UF NEW LINE 


0E1 


2C 




INR 


L 




0E2 


5F 




MOV 


E,M 




0E3 
0E6 


21 54 21 

46 




LXI 

MUV 


H.KL.! 
B,M 


(GET CURRENT LINE BINAR 


0E7 


2C 




INR 


L 




OCH 


4E 




MOV 


C.M 

DCOMP 




OE'J 


CD H OF 




CALL 


{HUW DU THEY COMPARE? 


,OEC 


CA 21 11 




JZ 


ISRT6 


{REPLACE/DELETE 


OEF 


OA 7A 11 




JC 


ISRl^ 


{KLINfc>NLINE 


0F2 


2A 56 21 
CD A3 12 




LHLD 


KL4 


{MOVE CN TO NEXT LINE 


OFS 




CALL 


CHK1 


{ARE WE DUNE? 


0F8 


DA OF 11 




JC 


ISRT5 




OFB 


F5 




PUSH 


H 




OFC 


2A 52 21 




LHLO 


KLINE 




OFF 
102 


22 59 21 
?1 59 21 




SHLD 
LXI 


PL INF 

H.PLINE 

PTVAL 


{SET UP PREVIOUS LINE , 


105 


CD Et OF 




CALL 


{SET POINTERS 


108 


Fl 




POP 


H 




109 


22 52 21 




SHLD 


K L I NC 


{SET UP CURRENT LINE 


IOC 


C3 D7 10 




JMP 


ISRT4 


[LOOP ON PROCESS 


10F 


2A 4B 21 


ISRT5: 


LHLD 


NLINE 


{GET NLINE ADDRESS 


11 L2 


CD 91 11 




CALL 


NOLINE 


{IS IT LEN. LINE? 


1115 


ca 




RZ 




{YfS-00 NOTHING 


11 16 


EB 




XCHG 






117 


2A 52 21 




LHLO 


KLINE 


{GET CURRENT LINE 


11A 


CD 8B It 




CALL 


STPNT 


{STORE AWAY POINTERS 


11D 


EB 




XCHG 






il£ 


C3 BD 10 




JMP 


ISRTl 


;G0 SET END UF LIST 


121 


2A 48 21 


ISRT6: 


LHin 


NLINE 


{REPLACE OR DELETE 


124 


CD 91 11 




CALL 


NOLINE 


{NJLINE MEANS OELETE 


127 


C2 48 11 




JNZ 


ISRT8 


{GO REPLACE IF NOT 


12A 


2A 49 21 




LHLD 


STLINE 


{GET STLINE 


2D 


FB 




XCHG 






12E 


2A 52 21 




LHLD 


KLINE 


{IF STLINE-KL1NE THEN L 


31 


E5 




PUSH 


H 


{NOW ZERO 


132 


CI 




POP 


B 




133 


CD Fl OF 




CALL 


DCUMP 




136 


2A 56 21 




LHLD 


KL4 




139 


CA 44 It 




JZ 


ISRT7 


{IF NOT STLINE THEN GO 


13C 


FO 




XCHG 






130 


2A 59 21 
CD 8B 11 




LHLD 


PL INE 




140 




CALL 


STPNT 




143 


C9 




RET 






44 


ZZ 49 21 


1SRT7: 


SHLO 


STLINE 




47 


C9 




RET 






48 


2A 56 21 


ISRT8: 


LHLO 


KL4 


{REPLACE LINE 


4B 


t& 




XCHG 






4C 


2A 4B 21 




LHLD 


NLINE 




4F 


CD 8U 11 




CALL 


STPNT 




52 


2A 52 21 


ISRT9: 


LHLU 


KLINE 




55 


EB 




XCHG 






56 


2A 49 21 




LHLD 


STLINE 




59 


fc5 




.PUSH 


H 




15A 


Ct 




'pop 


B 




58 


CD Fl OF 




CALL 


DCUMP 




15E 


CA 71 a 




JZ 


ISR11 


(IF KLINE =STLINE GOTO 


161 


2A 4B 21 




LHLD 


NLINE 




164 


EB 




XCHG 






L65 


2A 59 21 
CO 8R 11 




LHLD 


PL INE 




68 




CALL 


STPNT 


[PREVIOUS LINE PNTS. TO 


6B 


21 51 21 


ISRIOt 


LXI 


H.NL6 
ISRT2 


(SET UP NEW LINE TO 


6E 


C3 C4 10 




JMP 


[POINT TO MIKL4) 


71 


2A 4B 21 


ISRll: 


LHLD 


NLINE 


(NLINE-STLINE 


174 


22 49 21 




SHLD 


STLINE 




77 


C3 66 11 

2A 52 21 

£8 

2A 4B 21 




JMP 


ISR13 




7A 
7D 
7E 


ISR12: 


LHLO 
XCHG 

LHLD 
CALL 


KLINE 


{NLINE IN FRONT OF KLIN 




NLINE 




81 


CO 91 11 




NOLINE 




84 


C8 

CD 8B 11 




RZ 






85 




CALL 


STPNT 




88 


C3 52 11 




JMP 


ISRT9 





11HB 




nac 


23 


1180 


73 


a at 




11 BF 


72 


1190 


C9 


191 


F5 


192 




193 


23 


19* 


23 


195 


23 






197 


23 




CD 71 12 



INX 

Mnv 
INX 
MUV 
RET 



M,E 

H 

M,L) 



{MOVE HL2/NL2/PL2 INTU 



{ RUUTINE TO CHECK NEW LINE FOR SOURCE STMT. 

NOLINE: PUSH H 

• INX H 

INX H 

INX H 

INX H 

MOV C.M 

INX H 

CALL LENGTH 

POP H 

CMP C 
RET 



[HOVE LENGTH OF LINO IN 
(POINT TO FIRST CHAR. 
[CCMPARE LEN TO C 



JANUARY 1977 
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119E 


?1 


Si 




LI A I 


rn 


44 




LIA4 


f.n 


1)11 


12 


1U7 


c:3 


13 


ID 


1AA 


F5 






Ui3 


I 5 








• 1 






1AF 


in 


47 


14 


IB? 


en 


no 


1? 


IH5 


■if 






1B7 


c 1 






198 




4(1 




ILIA 


F5 














19C 


en 


All 


1/ 


1HF 


rn 


no 


12 


1C2 


r.i 






.1C3 


r-> 














1C7 


(.1 






,ica 








iw 


(.1) 


All 


1/ 


ICC 


cu 


00 


12 


11CF 


Fl 






LIDO 


C9 









2A 


49 




104 


C 11 


A ) 






!)A 








22 


S'l 








t F 


Ff- 


. 1 L 


22 


V 


21 


IE3 


tin 








- 






1C7 


2 A 


SI 




1FA 


;m 






lfK 


^■•i 






i Ft; 


4f. 






i' i 


21 














.lEf 








1F0 


>■ \ 










4 9 






CD 






.1F7 


1 1 






1F8 


2 A 


52 






fl 






I FC 


CI) 


Fl 


OF 


iff 










6 6 






20i 


M 






2J2 




OH 




1205 


(.3 


LA 


11 



120!. 
120A 
120B 
I2 0L 
12 OC 
12 1:) 
1213 



12^4 

12UB 
UBt 
128F 
129U 

129A 
129& 



UB 02 
FF 9 3 
CA 13 10 



1214 


C5 


12 1li 


06 rtj 






1219 


7F 


121A 




121T 


3r 






121F 


ft9 


12 20 




1221 


C9 


1222 


C5 






1225 




1227 


C3 19 12 



1224 
















22P 


is 














231 


FF 








CA 






2j6 


?1 


f.;l 




239 


77 






.2 3A- 








23rt 


71 








21 


OA 






22 








;>i 


;l.i 








f.4 




2 40 








2 4b 


( n 














24F 


7F 






2 50 








2 52 








2 5=. 


5/ 






















2 57 








258 








2 59 








25A 








12 5B 


2C 






25C 


73 






2 50 


1 5 














261 


35 






262 


2 








:;t 






2o4 








265 








2 6 :■! 








?.:>') 








26A 










-? I 




?] 




4F 






26F 








127J 


L9 






127L 


C5 






.272 


F5 






L273 


06 






.275 


fll 


1 't 












.270 


23 






,27C 


04 






.27(1 


on 






.27L 


( ft 






.231 


( '. 


7^ 


12 










.205 








.286 








i2ar 


.19 







4E 

CD fl OF. 

ca ao iz 



LX1 


H.OuATA 


CALL 


FDKM7 




WRIT 


J MP 


MIA 


TO PUNCH PAPER 


N RESPONSE TO 


PUSH 


PSW 


PUSH 


B 


LX1 


H,OUATA 




FORMS 


CALL 


WRIT 


MVI 




POP 


D 


MVI 


B.10JQ 
PSW 


PUSH 


PUSH 


B 


CALL 


PAL) 


CALL 


WRIT 


POP 


B 




B 


CALL 


LIST 


POP 


B 


POP 




CALL 


PAO 


CALL 


WRIT 



•WHAT?* FOR UMDENTIFIED 



iGET OUTPUT BUFFfcR ADDR 

JPAD IT 

;OUMP IT 

;JUMP TO RESTART. 



;GET OUTPUT BUFFER ADDR 
{PAD IN TURN ON PUNCH 
;OUMP IT 
;SFT UP TC CUMP LEADER 



JPAD 100 O'S 

;00 DC STANDARD LIST 
;G0 PAO AND DUMP TRAILE 



Rl.'jTINE TO LIST TO TTY THE SOURCE STMTS. 
ALa-J USCO TO HUMP TAPF. 

4LLL.hS THL USER T.J INPUT FIRST LIME UP 
0" F IRbT AND LAST LINES. 



LULL) 


STLTJF 


? ". A i I 




JC 


MIA 


SHLL) 


PL INF 


LX1 


H.177777U 


shi n 


KL 1N>" 


DC 


C 


CNZ 


BUUN) 


LHLD 


PL INC 




H 


I NX 


H 


MlJV 


B,M 


I NX 




MOV 




PUSH 


B 


INX 


H 


CALL 


FORM!. 


CALL 


WRIT 


POP 


B 


L H| [.: 


KL 1 Ni. 


XCHG 




CAI L 


DCOHP 


PZ 




MOV 




Mrtv 




CALL 




JMP 


LIS1 



ICHECK FGF: NC SOURCE 

;G0 RESTART 

;SFT UP T[ START LULKIN 



;GET LEN. IN REG B 



;CHECK FUR LAST LINfc 



;MUVfc TC NFXT LINE 
;CHFCK FOR INTERRUPTION 
;N!NE - CONTINUE 



THIS ROUTINE CHECKS PJRT 2 FOR A CNTPL/S CHARACTER 
IF ONE IS FOUNO THEN bXbLuTICl.4 IS TO CE INTERRUPTED 
CONTROL IS PASSfcD T.) MIA 



UU1TT: 

rjTCHK: 



; KLiUT 
; LGC4 
; Char 



3 ;TtST FLAG PORT 

;FLAC TU CY 
! NOTHING THERE 
2 JFLAL rfAS SET, GET DATA 

2230 :*AS IT C^TRl/S? 

Jt MIA ;Yf_S 

RFT ;NU, FETURN 

LIES NUMB ANU ALPHA CHECK IF CCNTEUS OF MEMORY 
T10N IN t-L CONTAIN ASCII NUMERIC UR ALPHrifcTIC 
ACTER. RETURN CY=1 IF YFS, CY=0 IF NO. 



PUSH 

MVI 

MVI 

MOV 

CMP 

CMC 

CMP 

POP 

PET 

PUSH 

MVI 

MVI 

JMP 



H, 26.10 
C,27?0 
A«M 



JSET UP ASCI I 3 



[StT UP ASCII A 



! ROUTINE TD CCNVFRT ASCII NUMEHIC CHAR. STRING TD 

! ^ U J^ LtN . T rK^ AR X«: Nl,Mtl(:R - RETURNS EQUIVALENT IN 
f JUr.IS,:.-, ^ySI H .,P F r LINfc r PASSE0.1N RE^C AND^^ 



iGET LfcNGIH OF STRING 

;IS LENGTH=0? 
IYEP— GC TO CVB2 
;SET UP TEMP VAR KASE 
JSAVL LENGTH IN KASE 
;SET UP TU MULT. BY 
'.DEC 13 



JGET NEXT CHAR. AND 
JSTRIP ASCII FROM IT 
:THE CCNVERSION ALGUR1T 

;0k?0 

;un WHILE A>0 

; L)E?IHL IM)-260Hl*D 

; END: 



PUSH 


H 


PUSH 




CALL 




PUSH 




PUSH 


H 






JZ 




LX1 




MGV 




INR 




MGV 




LXI 




SHLD 




LXI 




SHLD 








CALL 




XTHL 






A,M 


5B! 




ADD 








MVI 








MOV 








XTHL 




MUV 




INR 


L 


MOV 




PUSH 


H 






no. ; 




UCP 




dcp 


M 


PCP 




'-.. 


CVB1 


PUP 




PUP 


PSW 


PO" 


B 


LXI 


H,LF'i 






POP 


H 



; ROUTINE TO EVALUATE LENGTH OF ASCII NUMERIC 

I CHAP, SIkINC: PASSED ADO OF FtKST CHAR IN HL REG. 
; RtUIINS LENGTH IN RtrG A. 



PUSH 

PUSH 

MVI 

CALL 

JNC 

I H X 

INK 

dcp 

JZ 

JMP 
MOV 



NUMD 
NLE2 



;SAVfc REGISTERS 
'.IMIIAL IZt REG B 

;is hlim) an ascii numb 
;no done- rcg b contain 
;yep- get next one 

;chf:ck ft.p end of line 

;LliUP ON PROCESS 

;mcve length intu a 



PCUTI 
OF LI 

s;jurc 



NF TU LOCATE SOURCE LINE IN MEM. PASSED DIN VALUE 

Nh NUVBE.R IU Of (L'JW.HKjHI Rtj. Rf TURNS AilDRFSS OF 
LINE IN HL Rl-GS. (HIGH, LOW). CV SET»> NOT fOUNU. 

UUU STLINE |0M FIRST L1N& 

CALL CltKI ; IS IT -1 (ENO OF LIST! 

SYES- NL SOURCE-RETURN 
1MUVE LINL NUMB. INTO B 



Mnv 

MUV 
CALL 



INX 
MOV 



IHLIW UU THEY C0MPAKC7 
tilUMP HI TO G(, T POINTER 



IMOVE TO NEXT LINt AND 



129C 
129D 
12A0 
12A1 
12A2 



2A3 

2A4 
2A5 
12A7 
2A9 
ZAA 
2AB- 
2AC 



12 AD 
2AE 
2AF 
2B0 

12B3 
2B4 
2B5 
286 
208 
2B9 
2BC 
2BD 
2BE 
2C1 
.2C2 
2C3 
2C4 
2C5 

-2C8 
2C9 
2CA 
2CB 
2CC 
2CD 
2CE 
.2CF 



1200 

201 

2D3 
2')k 
205 
2D8 
21)9 
2DA 

120R 
2DF 
2DF 
,ZEO 

IZV.l 

12F2 
2F3 
2C6 
2E7 
2EA 
2 EC 
2E0 
2EF 
.2F0 
2FI 

..2FJ 
2F^ 
2F5 

L2F6 



2F7 
2F8 
2F9 
2FA 

2FB 
2FE 
2FF 
3 02 
304 
305 
.306 
307 
3 08 

309 

3UA 

3or> 

33C 

■ 
J10 
311 
314 
115 
3 13 
319 
31 A 
51D 
31E 
31F 
322 
32J 
324 
325 



326 



J27 
J 2 if 
12.') 
j2A 

32b 
3 2C 
5.1 
330 
ill 
332 



335 

_33o 
3 39 
33C 
33U 
3 .it 
340 
343 
34<V 
345 
346 
.» 4 7 
348 
j49 
34A 



34H 
3 4C 
340 
34E 
3 4F 
353 
1357 
3 5S 
35F 
3t3 
364 
368 
36C 
370 
374 
378 

HP 

383 
38 7 
38* 
38A 



MUV 
JMP 
FOUND: DCX 

OR A 
RET 



PUSH 

PUSH 

MVI 

MVI 

DAD 

POP 

POP 

RFT 



ir 



;MATCH— PC INT TO FIRST 



ISAVE REGISTERS 
IMOVE 1 INTO BC 
;OOUBLE ADD TO SET STAT 



If 

3E 49 



;SAVE REGISTERS 



;CHECK FOR LINE LENGTH^ 



M.A 
WRIT 



;RE-INITIALIZE l 



DECREMENT NUMB. CHAR. 



\0: PUSH 

PUSH 

PUSH 

LXI 

MOV 

MOV 

MOV 

MVI 
.: CMP 

JNZ 

MOV 

MOV 

CALL 

INR 
;: MOV 

INR 

DCR 

JNZ 

MOV 

MOV b,L 

MOV L.C 

MOV M,B 

POP H 

POP D 

POP B 

RET 

ROUTINE TO DUMP OUTPUT BUFFER TO TTY. 
t ITS MVI D,0 

UTl: PUSH PSW 

PUSH H 

PUSH B 

LXI H , OPU 

PUSH H 

MOV C,H 

DCP C 

JZ W2 

INR L 

. : MOV A.M 

RST SEND 

INR L 

DCR C 

JNZ Wl 

DCR D 

JZ W2 

MVI A, 215 

RST SEND 

MVI A, 212 

RST SEND 

!: POP H 

MVI Mil 

POP B 

POP H 

POP PSW 

RET 

ROUTINE TO LOCATE COMMANDS, KEY WOROS, OPERATORS, 
AND FUNCTIONS. HL CONTAINS ADD OF FIRST CHAR.: 
RFG C CONTAINS LENGTH OF LINE: RETURNS SYMBOL NUMBER 
IF FCUND IN REG A, 3770 IN A IF NUT FOUND. " 
ON ENTRY REG. A CONTAINS TYPE OF ENTRY SOUGHT: 

FOR COMMAND 

1 FOR KEYWDRD 

2 FOR OPERATOR AND DELIMITER 

3 FOR FUNCTION 



{GET OBUFF ADDR. 



;MOVE CHAR. 
JPRINT VIA ODT 
;MOVE TO NEXT CHAR. 



;PRINT VIA ODT 



SYMSRT: 



PUSH 

PUSH 

PUSH 

PUSH 

LXI 

MOV 

LXI 

MVI 

ADD 

MOV 

MOV 

MOV 

INR 

MOV 

XTHL 

MOV 

(.MP 

.)K7. 

new 
JZ 

PUSH 

LXI 

DCf- 

PflP 

JZ 

INX 

XTHL 

JMP 

! UP 

PUP 

Mnv 
Ann 

MUV 

PCP 

POP 

PUSH 

PJ5H 

PUSH 

LXI 

MUV 

MOV 

MOV 

MOV 

INR 

MUV 

INR 

JN7 

I XI 

INK 

MVI 

MUV 

LXI 

MUV 

DCR 

POP 

POP 

PHP 

MOV 

POP 

RET 



H.LEN 
M,C 

H.KDATA 



;SAVE C IN LEN 



;i.FN IN C AND SUMP L 

;F IRST CHAF-. IN 6 

;F IRST CHAR OF USER STH 

{AND CCMPARE 

JNJ MATCH-TRY AGAIN 
;SFT OP FOR NFXT CHAR 
;IF DONt EXIT 

JDECRF.MENT LINE LENGTH 



JGFT ADDR. UF TABLE 



H.LE'J 
M,C 
L, A 



E.377U 
A,E 

H.l.fN 
E,M 



;MUVE NUMBtR UF CHAP. L 



CO 

03 02 05 Ct 

03 DO CC U3 

03 CC C9 03 

03 03 C3 m 

03 DO 04 CI 

J3 CC C5 04 

03 00 D2 C9 

03 02 C5 CO 

03 03 04 CF 

03 C5 CE C4 

03 C7 CF D4 

02 C9 C6 

03 C9 f" 



03 C4 
03 C3 

K.. 



lilH 



KOATl AND 377U 

KDAT2 AND 377(J 

KDAT3 AND 377Q 

KDAT4 ANO 377Q 

3,3220, 3250, 31oQ 

3,3200,3140,323U 

3,3L'.Q,311Q,3230 

3,3230,3030,3220 

3,3230, 3240, 301Q 

377Q 

3,3t40,305Q,324Q 

3,3200,3220, 311Q 

3,3220,3050,3150 

3,32JL),324Ui 317U 

3, 3050,3160, 304Q 

3,3070,3170,3240 

2i3Ua,3O60 

3,3110,3160,3200 

3,3g*U,31l<J,315g 

•A'+2 000 



;pun 

iPLS 

;les 

;scr 

{PTA 

;let 
;pri 

;REM 

; stci 
;fn 

SGUT 

iiSp 

:l) \r 



SI 

^3 D2 



390 3: 

Hi SI 

394 03 C6 



4;'G'*2| 

'S^aoog 

'UM2O0I3 
3,'R' *200Q 
•E»«000 
■T'+^OOO 



JRET 

J FOR 



98 INTERFACE AGE 
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1.396 
139 7 
1399 
139A 
139B 
139C 
139L) 



MICROCOMPUTER DEVELOPMENT SOFTWARE 



D6 'O' UK 200U 

flH 'R* OR 200Q 

DB 4,'N' OR 20QQ 

OB 'E* OR 200Q 

00 'X' ;'IR 200Q 

DB *T' i)R 200Q 

OB 3770 

. JOE! IMITLKS HAVfc FOLLOWING VALUES: 



*HFN 



U9C 
13A2 
13A6 

3A8 
13AA 
3Aii 
3AC 
3AD 
3AE 
_3AF 
3 B 3 
3 HI 
1.113? 
3B3 
3B4 
3B5 



3BF 
3C0 
3 CI 
3Cli 



01 BC 01 dE 
01 AC 01 BD 
01 A9 



01 AA 

01 AF 01 AB 

01 AD 



1,2740., 1.276Q 

K254Q, L.275Q 

1.251Q 

1. ■ :■ +200Q 

•T* OR 200Q 

•H' flR 2000 

•E' OR 2000 

•N* OR 200Q 



'0' OR 200Q 

4 

•S' (JR 2000 

*T« UR 200Q 

'E* OR 2000 

•P' OR 2000 

1, **• +200Q 

1.2570,1,2530 

1,2550 ;>-• 

3770 
.3070,3050,3240 JGET 
t 32jrj, 3250,3740 -* Ri 



3.32J 

377Q 



;•/• 



;put 





13C9 


F5 


i -. C ft 


06 00 




3CC 


CD F7 OF 




1, f 


FF 99 




30 J. 


CA 01 14 




304 


FF FF 




1306 


CA F6 13 




. 3D9 


FE OF 




JOB 


CA F9 13 




3UE 


FE 8A 




3E0 


CA CC 13 




3E3 


FE 8D 




3ES 


CA 08 14 


13F8 


FE ec 


13EA 


CA CC 13 


3E0 


77 




13EE 


?3 




3EF 


04 




3F0 


CD 14 15 




13FJ 


C3 CC 13 




..if;, 


3E OF 




l.3r<; 


F7 




3F? 


2B 




3FA 


05 




3F U 


F2 CC 13 






CI 




3FT 


\f 




43) 


C9 




401 


3E DC 




-U3 


F7 




4 1', 


3F 00 




406 


Ft 




40 7 


C9 




406 


3F 8A 




404 


F7 




4.):- 


3E 00 




40J 


F 1 




4 or 


Hi 




40F 


B9 


Uio 


ca 


1411 


n'j 


141^ 


F 5 


1413 


E5 




4 .1 4 


IE A2 




416 


It- JO 




4 1 B 


AF 




4 L 9 


3 A 




4 IA 


7E 




41H 


C? 2H 14 




411 


tin 




'. L f 


C2 2o 14 




'♦2? 


14 




4 2:i 


C3 30 14 


1 


Wo 


FE AO 


1 


4 2<i 


CA 35 14 


. 


4 2tj 


BB 




42 C 


C2 30 14 




4.»F 


15 




'.30 


f 3 




.31 


77 




4 V 


2', 




433 


F3 




434 


OC. 




V "J 5 


2 3 




4 3d 


05 




43 7 


C2 13 14 


143A 


79 


l<t3B 


n 


143C 


ri 


L43J 


:;i 


1 


43b 


o 





143F 






144J 






.441 








442 








443 


-n- 






444 








44b 








4 4(. 








447 








4 ',& 








4 4<> 


4f 






44A 


79 






448 








440 








44<! 








44r 








450 


6 














455 


)L) 






456 


C2 




459 


C9 




145A 






14 5B 


6A 




145C 


73 










145E 


83 




145F 






1460 








B7 










1463 






14 64 


05 




1463 






1 


46A 


C1D 


54 55 



! ROUT 
J OF F 

TTY1N: 

TINl: 



****************************** ****************** 

f„ T j)'N^' £P UR ££, LINE FR0M TrY * PARSED ADO 
1RST CHAR IN HL. RETURNS LENGTH OF LINE IN REG A 



TIN4 : 
T1N4A: 



PUSH 

MVI 

CALL 

CPI 



CP1 
JZ 

CPI 



mov 

INX 
INR 
CALL 

JMP 

M v I 
RST 
OCX 

DCR 



POP 
PET 

MVI 

p s r 

MVI 



CHAR2 

231Q 

TIN5 

3770 

TIN2 

3370 

TIN2t-3 

2120 

TINl 

215Q 

TIN4 

2 14Q 

TINl 

M,A 



T INI 
A, J37Q 
SEND 



{back arrow (ruboud? 
;lf? 



{PRINT VIA ODT 



RCUTINt TO REMOVE BLANKS FROM 



PUSH 

PUSH 
PUSH 
MVI 
MV[ 

XKA 

r. mp 

RUV 



JNZ 

I N K 

JMP 

CPI 

JZ 

CMP 

JNZ 

[K.P 

XTIIL 

";"; V 

INX 

XTHL 

1NP 

INX 

OCR 

JNZ 

MOV 

POP 
PUP 
PUP 
RF] 



QSTHl 

2 4 0'J 
PK2 



{PR INT VIA DOT 



SOURCE UNLESS ENCLOSED IN 
{SAVE RIG'S 

UNIT E FLR COMPARES 

;0=1=>J1TH1N yUOTLS, LE 

{CLEAR A 

ICHFCK INPUT MOOE 

{iiFT CHAR 

:w ! rniN ouutl siring 

;IS IT 1ST ■'? 

{NO - PFfJLfcEU 

{YES, SET- FLAG 

iCCMINUF 

{IS IT A SPACE? 

{YES - LEAVE OUT 

{2ND '•? 

IMU - Ci-NT INUF 

iRESFT. FLAG 

•SAVE Dt:SI ' NATl0N ADUki:s 
{HUMp PNTR. 
{GET SOORLE AOD. 
JbUMP CHAR. CNT 
;4U'^P PNTR. 

!DCR INPUT L INE CHAR CN 
{Mliftb - GC AGAIN 
{CHAR CNT TO A 

S. RETURN 



{RESTCRE REG' 



OUTPUT BUFFCF. 



AGAIN' 



&&H N £* T0 PAD MESSAGES TO 

F0R12 PADS 'UNDERFLJW' 

: Fl HI 1 PADS 'UVEKFLOn" 

F0R10 PAOS 'ZEROOIVIDE' 

EJ^.1 9 . ^"5 ' 1 ^ PUT Et'ROR, TRY 

FORMS PAUS 'MEMURY FULL* 

F-URM7 PAOS 'WHAT?' 

FURM4 PADS * IN LINE' 

FORM 3 PADS 'ERROR' 

T*Zl ?J„ D ! : R r ffly l . ,N PUNCH ' 



U M LE^?f, SrSfl 7 ^" 1 ^ ^ StU »°° ,,F FIRST C "» B '« 



fi;ri2 










f a p. u 


INP 


















{■U.iM'J 










F-JKf-d 










f : rii<M7 










f-*;KM4 




















HJKr',': 










i u )•> f-i I 










FURM5. 


MOV 

MOV 
CPI 


C ,M 
A.C 

















F0RM6: 


MUV 

MVI 

CALL 

OCR 

J N I 

RET 


A,H 
B,l 

PAD 

C 

Fl 






;««*** 


*««*««*•» 


»»***** 








CODE FROM 


HERE TO THE NEX 


00A1A: 


DB 


0DAT1 


AND 








ODATZ 


AND 








UDAIi 


AND 








0DAT4 


AND 








0DAT5 


AND 


377Q 



{POINT TO PROPER BUFFER 
{MOVE LENGTH INTO C 
{AND STORE IN A 
{IS IT 0? 



■S MUST fit ON 



0DAT6 AND 377Q 

0DAT7 AND 377Q 
ODAT;i AND 377Q 
0DAT9 AND 3770 
0DA1J AND 3770 
5, 'READY' 

13, 'TURN ON PUNCH* 



146E 
1472 
1476 
147B 
14 7C 
1480 
1481 
1485 
489 
48B 
48F 
491 
495 
499 
49D 
4A0 
4A4 
4A8 
4AC 
4Q0 
14H4 
4B7 
14BB 
4BF 
14C2 
14C6 
14CA 
14CH 
4CF 
403 



14D5 
1406 
14D8 
14DB 
14DE 
14F0 
14E3 
14E5 

L4E8 
14EA 

14E0 
14EF 
14F2 
14F4 
14F7 
14F8 
14F9 
I4FA 
14M) 
150U 
1501 
1502 
1505 
1506 
1507 



4E 20 
20 50 
43 4B 

8 BO ■ 
52 52 
20 

39 20 ■ 
20 4C • 

45 20 
05 5 7 

54 3F- 
OE 4D 
4F 52 

46 55 
8D BA 
16 49 

55 54 
52 52 
2C 20 
59 20 
41 49 
OA 49 
45 4b 
49 54 

08 4F 
52 46 
57 

09 Sz 
45 52 
4F 57 



E5 

06 00 
C3 DE 14 
CO 08 15 
FE 99 
CA 04 14 
FE FF 
CA 00 15 

FE OF 
CA 00 15 
FE 8A 
CA OH 14 



45 0DAT3J 



48 41 


0DAT5: 


45 4U 








4C 4C 




3F 




4E 50 


0DAT7: 










54 52 




41 47 




4F 




4E 44 


00 AT 8: 


49 4E 








56 45 


00AT9: 






4f 44 




46 4C 





8,2150,2120, 'ERROR * 

9,« IN LINE • 

5,'WHAT?' 

14, 'MEMORY FULL*, 215Q. 2120, •?• 

22, 'INPUT ERROR, TRY AGAIN' 

10, 'INDEFINITE' 
8, 'OVERFLOW 
9, 'UNDERFLOW' 



15Jii 
1509 
i^OB 
1500 
1510 
1512 
1513 



1514 
1515 
1516 
1517 
1519 
151A 
151H 
15IF1 
15 IE 
151F 
1. 5 Z 2 
1523 
1524 
1525 
1528 
1529 
15 2A 
5 2 b 
152C 
152F 
532 
-535 
1538 
5 3b 
53E 



06 04 
03 05 
CD F4 OF 



■ 42 
545 

543 
54A 



1540 
1550 

1 5 52 
15i3 
.554 
15 56 
.557 
.558 
559 
I55C 
55F 
1562 
563 
564 
567 
568 
56') 
56C 
156D 
56F 
56F 
570 
571 
573 
574 
575 
577 
578 
579 
_5 7A 
1570 



CD DO 12 

CD F7 OF 

CD AP 12 

CD DO 12 
DE BO 
FE 04 

CC 9F 11 

31 F5 27 
OE 01 

C3 47 10 



CD 14 12 
D4 9F 11 
CD 2A 12 



1586 CO A3 15 

1589 CI 

1584 23 

158B 56 

158C 23 

15 811 5E 

I53fc EFJ 

us a 5z * i 

1593 El 

1594 'a 

.595 
1597 
159A 

59B 
59C 
15 9F 
5 A3 
5A3 
5A6 
5A7 
5A8 
5A9 
5AC 
5AD 
5AE 
5AF 
5B0 
5B1 
5B2 
5B3 
5B4 



ROUTINE TO INPUT SOURCE LINE 
OF FIRST CHAR IN HL. RETURNS 



*************** ******** 
FROM HSR. PASSED ADD 
LENGTH OF LINE IN REG A 



PUSH 

MVI 

JMP 

CALL 

CPI 

JZ 

CPI 



CPI 
JZ 
MflV 

INK 

INR 

CALL 

JMP 

OCX 

OCR 

JP 

POP 

XRA 

PET 



PIN1A 
CHARb 
2310 

TIN5A 
3770 
PIN3 

3370 
PIN 3 
2120 

TIN4A 
2150 
PIN1 
M, A 



;get A CHAR. 
{CNTRL Y? 




JOEL? 






{CNTR 


A? 




JCR7 






;CR? 






{GOOD 

;move 


CHAP — STORE 
TO NEXT SLOT 



{IS MEM. FULL? 
;LUGP CN PROCESS 
JgELfTE THE LAST CHAR. 
{MUST INSURE THE LINE I 



ROUTINE TO INPUT CHAR FROM HSR 
dHAR5: 



PUSH 
MVI 
OUT 
CALL 



^E TO INSURE S.IURCE DOE 
t£5 CURFNT MEM ADDRESS 

PUSH B 

PUSH 

PUSH H 

MVI A, 50 

AOD L 

MOV B.A 

MVI A,0 

A DC H - 

MOV C,A 

LXI H.O 

OAO cn 

MOV 

MOV 

CALL 

POP 

PHP 

POP 

RNC 

LXI 

CALL 

CALL 

CALL 

CALL 

CALL 

SB I 

CPI 

CZ 

LXI 

MVI 

JMP 



nccMP 



WRIT 

CHAR2 
PAD 

WRIT 

2600 



*.the input request 

;go get char. 

{the terhinate request 



S NUT OVERFLOW MEM SPACE 

{SAVE REG.B.D.H 

jHCVfc DEC 50 INTO B TO 
{INSURE MARGINE OF STAC 



{ESTABLISH MEM*50 IN BC 
{MOVE SP INTO HL 
{SET UP FOR CCOMP 

{CY=0 THEN OK TO CONTIN 
{MEMORY FULL — PAD 
{MESSAGE AND WRITE 
{GET USER RESPONCE 
JMUST BE 1,2 OR 3 FOR C 



ROUT INF 
CCMMANO 
AS LAST 



NUMB 
WHAT 
CVB 
PSW 



FE 00 




C2 9E 




44 




4D 




CO Fl 




00 




C3 9E 








46 





5B7 

5B8 

5BB 

158C 

15BD 



CD A3 12 
D2 A6 15 



TO EVALUATE BOUNDS F 
'S. RETURNS PL INE AS F 
LINE TO BE L ISTED. 

LHLD NL1NF 
MVI A, 9 

ADO L 

MOV L,A 

MVI A,0 

ADC H 

MOV H , A 

PUSH 

CALL 

CNC 

CALL 

PUSH 

PUSH 

CALL 

POP 

OCX 

SHLU 

POP 

PUP 

INR 

AUu 

MOV 

MVI 

ADC 

MOV 

MVI 

CMP 

RZ 

OCR 

CALL 

CNC 

PUSH 

CALL 

PUSH 

PUSH 

CALL 

POP 

INX 

MOV 

INX 

MOV 

XCHG 

SHLD 

POP 

POP 

MOV 

CPI 

JNZ 

MOV 

MOV 

CALL 

RNC 

JMP . 

LHLD 

MOV 

INX 

MOV 

CALL 

RC 

RZ 

PUSH 

INX 

MOV 

INX 

MOV 

MOV 

CALL 

POP 

JNC 

PUSH 

POP 

RET 



{LCOP CN CONTROL SECTIO 

OR LIST AND PLIST 
IRST LINE, KLINE 

{GET AOOR. OF NEW LINE 
{INCREMENT 9 TO GET TO 

{THE AOOR. IS NOW THERE 

•SEE IF THERE IS A NUMB 
{CONVERT KUMBER TO BINA 

{GO FIND FIRST LINE 

{STORE IT WAY AS FIRST 



BND2 

B 
H 

D,M 

E,M 

KLINE 
D 

H 

A.C 



WHAT 

B,H 

C.L 

DCOMP 

WHAT 

STLINE 

B,M 

H 

C.M 
DCOMP 



{set up to get upper bo 

{upper bound aodr in hl 
{is that end of line? 

(is next char numb? 
;nct number — whzts up 

{convert to binary 
(go find second bound 



{SETUP TO STORE IT IN K 



{ARE WE AT END OF LINE 



{SET UP TU SEARCH FROM 



{COMPARE BINARY OF REQU 
{TO CURRENT LINE 



(MOVE TO NEXT LINE 
ilS THAT ALL? 

{NOPE— LOOP CN PROCESS 



JANUARY 1977 



INTERFACE AGE 99 



SOFTWARE SECTION 



MICROCOMPUTER DEVELOPMENT SOFTWARE 



'ROUTINE TO OUTPUT ERROR MSG. TO I 
REG A CONTAINS BCD ERROR NUMBER, 
LUAOEO WITH VALUE OF KLINE. 





21 


13 


10 


w 


?1 


5A 


14 


5C5 


F5 














5C7 


[,I> 


46 


14 




06 


ni 






4H 








/A 






5CE 










117 








(17 
















H> 


Oh 






!.(, 








ru 


AD 




5D9 










OD 








F? 


11? 


1* 




M 








rn 








^fi 






.5E5 


/J 
















? i 








;m 








-t 
















i.n 














5FF 


CI) 








CD 


DO 




15F5 


L'J 







ERROR: 



LXI 

PUSH 

LXI 

PUSH 

HUV 

CALL 

HVI 

MOV 
NOV 
RLC 

R'LC 

RLC 

RLC 

ANI 

ADI 

CALL 

MOV 

OCR 

JP 

PGP 

CALL 

LHLD 

INX 

I NX 

INX 

INX 

MOV 

INX 

CALL 

MtlV 

CALL 

CALL 

RET 



170 

2 6 0(3 
PAH 



LENGTH 
C.A 

hORMC 



{RETURN ADDRESS 

ISiVu? IJ^R DATA T» 8 

{SAVE ERROR NUMB. IN D 

{PAD 'ERROR ' 

JINIT FOR PADS 

;INIT AS CNTR. 

;GET ERROR NUMB. „ rrt 

;ROTATE HIGH 4 BITS TO 



;CONVERT TO ASCII 

;PAD IT 

(GET ERROR NUMtt. 

{ANOTHER PASS? 

{YES 

;NO-CfiNT[NUE 

;PAD * IN L 1NE' 



15h6 

15F8 

15FB 

15F0 
1600 
liiO^ 
160S 
1607 
1608 
1609 
160A 



THIS ROUTINE I NCRtfMt NT S H AND - 
DECS. CICHARS IN LHEI SHOULD C 
IN THEN THE ERROR CORRES Tl1 
IS GIVEN 



AND 
RESULT 
FNTRY PNT. 



3fc 07 




ICP7: 


MVI 

JMP 


INCPT 






[CP8i 






















MVI 


















ICP2: 




































C3 BE 


15 




JHP 


ERROR 



FSYM FINDS SYMBOLS IN TABLE 
B,C CONTAIN SYMBOL 

RET WITH R ,C,0,E SAME 

H AND L PNT TO VALUE I 1ST BYTE! 

CY=0 AND A SCALAR VAR. => INSERTED 
^aSoVpN^LAST KtS'iTJyMBOL TABLE 



SCHECK TO SFE 
;1F SYMBOL TABLE 
{EMPTY 



60D 


05 


FSYM: 


PUSH 


D 




60h 


AF 




XRA 


A 




60F 


HO 




ORA 


B 




6 



3 


C.A 14 16 
3F 




JZ 

CMC 


AR 






4 


F5 


AR: 


PUSH 


PSW 




.t> 


5 


2A 59 21 




LHLD 


NXTSP 




L 


8 


C5 




PUSH 


B 




6 


9 


44 




MOV 


B.H 




b 


A 


40 




MOV 


C.L 
STSPAC 




6 


H 


2A 4b 21 




LHLD 




6 


E 


54 




MUV 


D.H 




6 
6 


F 



5D 

CD Fl or 




MOV 
CAIL 


E.L 

DCCMP 




bti 


CI 




POP 


B 




6?<t 


CA 44 16 




JZ 


NOSYM 




627 


CD A3 12 


LUKON: 


CALL 


CHK1 




62A 


DA 4b 16 




JC 


NOENT 




62L) 


54 




MOV 


D.H 




62E 


5D 




MOV 


EiL 




62F 


78 




Mnv 


A.D 




630 


BE 




CMP 


M 




.iJl 


C2 3B 16 




JNZ 


NOMAT 




634 


23 




INX 


H 




1635 


79 




mhv 


A,C 




636 


BE 




CMP 


M 




637 


CA 71 16 




JZ 


ENTRY 




63A 


28 




DC X 


H 




63a 


23 


NUMAT: 


[NX 


H 




63C 


,'3 




INX 


H 




1630 


7E 




MUV 


A,M 




163E 


73 




INX 






163F 


66 




MOV 


H. M 




640 


6F 




MOV 


L,A 




1641 


C3 27 16 


; AFRIVE 


JMP 
HERF If 


LUKON 
SYHBS1L TABLE 


IS 


1644 


IB 


NUSYMi 


OCX 


D 




1645 


IB 


J ARRIVE 


DCX U 
HERE WHEN NO ENTRY FOUND 


1646 


2A 59 21 


NLlEflT: 


LHLD 


NXTSP 




649 


EB 




XCHG 






64A 


Fl 




POP 


PSW 




64B 


02 76 16 




JNC 


FBAC 




64fi 


CD OB 11 




CALL 


ST PNT 




.651 


EH 




XCHG 






652 


70 




MUV 


M,B 




053 


23 




,■■• 


H 




16.54 


71 




MOV 


M,C 




655 


23 




INX 


H 




656 


E5 




PUSH 


H 




1657 


23 




INX 


H 




658 


23 




INX 


H 




659 


23 




INX 


H 




65A 


23 




rNx 


H 




65B 


23 




INX 


H 




6 5C 


23 




INX 


H 




165D 


22 59 21 




SHLD 


NXTSP 




660 


CD 14 15 




CALL 


MEMFUL 




663 


Fl 




PUP 


H 




664 


36 FF 




MVI 


M.377Q 




666 


23 




INX 


H 




1667 


36 FF 




MVI 


M.377Q 




669 


23 




INX 


H 




166A 


CD CO OF 




CALL 


ZROL 




.66D 


B7 




ORA 


A 




66E 


C3 76 16 




JMP 


FBAC 




1671 


Fl 


ENTRY: 


PGP 


PSW 




1672 


23 




INX 


H 




673 


23 




INX 


H 




1674 


23 




INX 


H 




675 


37 




STC 






1676 


Dl 


FBAC: 


PUP 


D 




1677 


C9 


. 


RET 












RUN - 


THE INTERP. 










INIT. 


NXTSP 






16 78 


2A 4B 21 


RUN: 


LHLD 


STSPAC 




167B 


22 59 21 




SHLD 


NXTSP 




167E 


21 AA 21 




LXI 


H.BOTNS 
NEST 




1681 


22 94 21 




SHLO 




1684 


21 13 10 




LXI 


H.MIA 




1687 


E5 




PUSH 


H 




1688 


E5 




PUSH 


H 




1689 


2A 49 21 




LHLD 


STLINE 




16BC 


CO 08 12 


ILOOP: 


CALL 


OUITT 




16BF 


CO A3 12 




CALL 


CHK1 




1692 


02 9A 16 




JNC 


SORCE 




1695 


3F 01 




MVI 


ERROR 




1697 


C3 BE 15 




JMP 




169A 


22 52 21 


SORCE: 


SHLD 


LPNT 




169D 


E5 




PUSH 


H 




169E 


21 52 21 




LXI 


H.LPNT 
PTVAL 




16A1 


CD EE OF 




CALL 




16 A4 


3A 56 21 




LDA 


KLhN 




16A7 


4F 




MOV 


C.A 




16A8 
16A9 


OC 




INR 


C 




El 




POP 


H 




16AA 


23 




INX 


H 




16SB 


23 




INX 


H 




16AC 


23 




INX 


H 




16AD 


23 




INX 


H 




16AE 


CD. 05 16 


Ll: 


CALL 


ICP2 




16B1 


CD 22 12 




CALL 


ALPHA 




16B4 


D2 At 16 




JNC 


Ll 




16B7 


AF 




XRA 


A 




1688 


3C 




INR 


A 




16B9 


CD F7 12 




CALL 


SYMSRT 




16BC 


FE FF 




CPI 


377Q 




16BE 


C2 C6 16 




JNZ 


GKEY 




16C1 


3E 02 




MVI 


A.2 

ERROR 




16C3 


C3 BE 15 




JMP 




16C6 


22 5B 21 


GKEY: 


SHLD. 


CPNT 




I6C9 


21 06 16 




LXI 


H, JTBL 




1 


6CC 


67 






ADD 


A 





{CHECK FOR END 
JSAVE OLD PNTR 

;0D VARIABLES MATCH 



;N0 MATCH GET NEW PNT. 



-STSPAC-2 SO.STPNT ,WC 



{AOD. OF FREE MEMORY 

;T0 OE, HL HAVE LAST SY 

! ARRAY? 

;YfcS, RETURN 

-.UPDATE PNTR 

•.NXTSP TO HL 

; STORE VAR. 



JSTCRE NXTSP+8 IN NXTSP 



;INIT TD FLT. PNT. 

;CLEAR CY 

{RESET CARRY AND RETURN 

;VAR FOUND 

;MOV£ PNT. TO FIRST BYT 

;UF FLT. PNT. ND. 



UNIT SP FOR NESTING ST 
{PRECAUTION, 



;START OF SUURCE 

{CHECK FOR INTERRUPTION 

;HL~1 -> NO MORE SOURC 



;ERROR 1, NO END STMT. 



{CHAR'S IN LINE TO C 



;BAD KEYWORD 



16CD 
16CE 

16D0 
601 
602 

.603 
6D4 
6D5 

.6 06 
6Dii 

16DA 
6DC 
6Dt 

16E0 
6E2 
664 
6E6 
6EB 

.6EA 

16EC 
6EE 

16F0 



16h2 
16F5 
16F8 
16FB 
16hU 



1700 
1703 

1704 
1705 
1706 
1709 
170C 
170D 
1710 
1712 
1715 
1718 
171B 
1710 



6F 
E9 

DO IB 

95 1A 

8C IB 

13 10 

F2 16 

00 17 

70 IC 

4C IB 

20 17 

5A ID 

00 ID 

E5 ID 

L7 ID 

09 IE 



2A 56 21 
CD A3 12 
DA 13 10 
3E 03 
C3 BE 15 



23 

CD 00 16 

CD 2A 12 

S7 

C2 15 17 

3E 04 

C3 BE 15 

CD 08 12 

02 OC 16 

3E 05 

C3 BE 15 



MOV 

MVI 

DAD 

MOV 

INX 

MOV 

MOV 

PCHL 

DW 

DW 



1720 

1723 

1724 

1725 

1726 

1729 

172C 

172E 

1731 

1732 

1735 

1737 

1738 

173b 

173E 

741 

742 

743 

745 

. 746 

747 

749 

74A 

74D 

7 4E 

74F 

750 

752 

755 

758 

759 

75A 

75C. 

75F 

760 

1761 

1764 

1765 

1768 

1769 

LT6A 

176C 

1760 

176E 

17bh 

177L 

1772 

1774 

: 775 

..776 

777 

778 

77') 

77A 

7 7B 

7 7E 

77F 

1780 

781 

7 a?. 

7o3 

784 

17B7 

1738 

1789 

7 8C 

7 81! 

790 

793 

179'* 

1795 

1796 

797 

: 79A 

79* 

79h 

17A0 

17A1 

7AZ 

17A5 



7A8 
.749 
17AA 
7AB 
7AC 
7A6 
7AF 
.780 
781 
7B2 
7B3 
7B6 
7B7 
7B8 
7B9 
7SA 



CD 22 12 

DA 31 17 

3F Ot, 

C3 BE 15 



C2 2C 17 
CD F6 15 
CO 2A 12 



06 00 
CD OD 16 
D2 5F 17 



L.A 

LET 
PR I 

I END 

MIA 

ENDD 

GOTO 

IFRT 

INPUT 

DIM 

CALLP 

&05UB 

RETRN 

FUR 

NEXT 



END PROCESSOR 

JOD: LHLD 
CALL 

JC 
MVI 
JMP 



KFPNT 
CHK1 
MIA 
A,3 

ERRO« 



GC TO PROCESSOR 



INX 

INX 

CAl L 

CALL 

ORA 

JNZ 

MVI 

JMP 

CALL 

JNC 

MVI 

JMP 



OKN 

ERROR 
NSRCH 
ILGDP 
A, 5 
E R.ROK 



DIMENSION PROCi 

|M: LHLD 

INX 

INX 
.OUP: CALL 



ESSOR 

CPNT 



JC 

MVI 

JMh 

MGV 

CALL 

MVI 

CMP 

JNZ 

CALL 

CALL 

ADD 

MUV 

MVI 
ADC 
MOV 

MVI 

CMP 

JNZ 

PUSH 

PUSH 

MOV 

MVI 

CALL 

JNC 

PGP 

POP 

MVI 

JMP 

PUSH 

XCHG 

LHLD 

XCHG 

CALL 

XCi'G 

POP 

MVI 

INX 

Mnv 

(NX. 
MVI 
INX 
MVI 
INX 
MOV 
CMA 

wnv 

MOV 
CMA 

Mnv 

CALL 

INX 

INS 

i NX 

INX 

INX 

PUSH 

CALL 

MGV 

mhv 

CALL 

PUP 

JNC 

SHLD 

POP 

PUP 

INX 

OCR 

JZ 

OCR 

JZ 

MVJ 

CMP 

INX 



PUSH 

PUSH 

PUSH 

PUSH 

MVI 

LDAX 

MOV 

INX 

INX 

DCR 

JNZ 

POP 

POP 

POP 

POP 

RET 



ALPHA 

(1KLET 

A, 6 

ERROR 

B.M 

ICP7 

A, 25110 

M 

ER6 

ICP7 

CVB 



FSYM 

NDOU 



ERROR 



,3770 
,3770 



;PNT. TO PROPER PROC. 
{ADD. IN JUMP TABLE 
iGET PROC. ADD. 

i INDIRECT JUMP TO PROC. 
(JMP TABLE 

;R6M STMT. - NO ACTION 
;STOP STMT .-RETURN TO E 



;MORE SOURCE ERROR 3 



;GOTO STMT. PROC. 
•INCREMENT PAST KEYWORD 



JPOSSIBLC ERROR 4 

GE I DESTINATION 
■MAKE SURE IT WAS OK 



;NCN-EXISTENT 



;CHECK IF IT IS A VAR. 

;ERROR 6 



j I NCR. CPNT 

;CCNV. TO BIN NL. 

;UPDATff CPNT 

;E0 CONTAIN ARRAY LEN. 

;C CONT. NO. CHARS LEFT 
;IN LINE 
JCHECK FOR ) 



•il^'uf'fiS'^Lt .0 FSY 



;DUPL ICATE ARRAY DEF. 
;SAVt DIM. LENGTH 
•ADD. OF LAST SYM. TAB. 
•GET ADD. OF AVAILABLE 

JSET UP FOR CALL 
jSTORfc NEW PNTR 
;NXTSP TO' HL 
{RESTORE D 

-.INSEKT VAh IN SYMB. TA 



;FPNT TO -1 

;PNTS TdIfIRST. DATA 
;GET ONE'S COMPLEMENT 

{NUMBER Uh ELEMENTS 
;IN ARRAY TD B.C 



{MEMORY FULL? 



{MORE ELEMTS IN L IhE? 
{NEXT ELEMENT A , 



{SAVE REGISTERS 



{COUNT 

{GET FROM SOURCE 
;PUT TO DESTINATION 
{BUMP PNTRS* CNT 



{RESTORE REGISTERS 





C5 




06 01 




CD AD 12 


17CI 


CI 


17C2 


C9 



UUTR PADS OUTPUT FROM CONV INTO 
OUTPUT BUFFER USING ROUTINE PAD 
ALL REG'S MAINTAINED 



OUTR: 



PUSH 

MVI 

CALL 

POP 

RET 



B.l 
PAD 



TO THE VALUE OF A 
C,H,L ARE UPDATED 
A, B ARE DESTROYED 



17C3 
7C6 

7C7 
7C9 

17CC 
7CE 
701 
7D3 

17D6 
1709 
17DA 
17DB 
17DC 
17DD 
17DE 
17EI 
17E3 
17E4 
17E7 
17EA 



FE 01 
C2 D9 17 
C3 78 IC 



C2 22 1A 
CD FB 15 
CD C7 19 



MVI 

CALL 

CPI 

JZ 

CPI 

JNZ 

JMP 

INX 

INX 

INX 

HUV 

GRA 

JZ 

MVI 

CMP 

JNZ 

CALL 

CALL 



A, 3 
SYMSRT 

3770 

KGNT 



ER8 

ICPB 

EVAL 



700 INTERFACE AGE 



{SAVE REG B 
{PAD ONCE 
{DO IT 

{RESTORE B AND RET. 



;IS IT A VARIABLE? 
{YES - ALL DONE 
{NO CHEK IF A FUNC. 



{ILLEGAL USE OF FUNCTIO 
;0K, IT'S GET! — ) 
{UPDATE H,L 

{CHECK FOR PREMATURE EO 



{CHEK FGR I 



JANUARY 1977 



SOFTWARE SECTION 



MICROCOMPUTER DEVELOPMENT SOFTWARE 



17ED 
17EE 
17F1 
17F4 
7F5 
7F6 
7F9 
7FA 
7FB 
17FC 

7Fd 

7FE 
7FF 

aoo 

803 

835 

806 
809 
BOA 

30b 
80C 
SOD 
810 
813 
81b 
816 

air 

818 

819 
81A 

bid 

820 
821 
824 
827 
828 
829 
82A 
828 
82C 
82U 
830 
B33 
834 
83b 
8 36 
838 
83B 
83E 
641 
843 
344 
847 
849 
8 4C 
S4F 
852 



21 7C 21 
CO A8 17 



01 77 21 
21 36 18 
IE 05 



Fl 

r.9 

OB 00 
C3 24 18 
CD 14 12 
DA 47 18 
3E AE 
BE 

C2 Zl IA 
3F 01 
CO 53 18 



1853 








18 56 
















185A 








1850 








1860 








1862 








1865 
















186B 


^ 








C9 









I860 


CD 22 


12 




870 


DO 






B71 


23 






a?2 


00 






873 


C2 7F 


18 




876 


C5 






877 


OF 00 






879 


26 






8 FA 


46 






87B 


23 






8 7C 


C3 Bl 


18 




871- 


CD 22 


12 




882 


D2 94 


18 




885 


C5 






886 


3E 02 






888 


CD F7 


12 




68B 


CI 






8 8C 


3C 






1880 


C2 76 


18 




1890 


UL 






.891 


26 






8 92 


B7 






893 


C9 






694 


CO 14 


Vc 




897 


H2 09 


18 




894 


23 






8 9B 


00 






89C 


CA AA 


18 




89F 


C5 




1840 


3E 02 






18A2 


CO F7 


12 




1845 


CI 






18A6 


3C 






8A7 


CA 22 


IA 




8AA 


2R 






SAB 


C5 






8AC 


4fc 






SAO 


29 






8AF 


46 






8AF 


23 






8B0 


23 






BHI 


EB 






18B2 


cd on 


16 




8B5 


E8 






886 


CI 






18B7 


3 7 






8B8 


C9 






899 


7F 






69A 


FF AG 






BBC 


CA CD 


18 




89F 


3E 02 






aci 


C5 






8C2 


CO F7 


12 




8C5 


CI 






8C6 


3C 






8C7 


CA 22 


14 


.acft 


C3 76 


lb 


18C0 


26 




1BCE 


7F 




lacF 


23 




1800 


F5 




18D1 


CD FB 


15 


1804 


CD C7 


19 


18U7 


E5 






808 


21 7C 


21 




8DH 


CD A8 


17 




8DE 


EB 






80F 


Fl 






8E0 


CD 15 


19 


lflfc3 


3E A9 






8E5 


BE 






8E6 


C2 22 


IA 




8E9 


23 






E A 


OD 






(JE8 


13 






ate 


13 






8ED 


14 






8EE 


47 






8FF 


13 






8F0 


14 






8F1 


B7 






8F2 


L7 






8F3 


5F 






8F4 


78 






8F5 


17 






6F6 


57 






8F7 


7B 






8F3 


87 






6F9 


17 






8FA 


5F 






8FB 


74 






8FC 


17 






8FD 


5 7 






8FF 


Fl 






8FF 


C5 






goo 


4F 






901 


36 00 





PUSH 


H 


LXI 


H.FREG1 


CALL 




XCHG 




PGP 




CALL 








I NX 




INX 




LDAX 




MOV 




MGV 








JZ 




HVI 






M 


JNZ 
INX. 


ER6 


DCP 




PUSH 


H 






LXI 










E.5 


MOV 


A,M 






INX 


H 


INX 




DCP 












JMP 


M.D 


LXI 




MOV 




OCX 


H 






MOV 




OCX 




MOV 


M.A 


CALL 


LXI 






B 






RET 




IN 




JMP 




CAl L 




JC 




MVI 




CMP 


H 




ERS 




A. 1 


CALL 


K-DKON 


JC 


ER9 






RET 





ISAVE REG H.L 
;COPY IT 



;CHECK FOR ) 



(BUMP PNTR'S 

;SAVE H.L.B.C 

JSTORE PROGRAM SEGMENT 

SIN RAH t START AT GREG 

!ADD. OF INST'S 

;NUMB. OF BYTES 

JGET BYTE 

JSTORE IN RAH 



;6UHP PNTR'S, DCR CNT 

JSTURE PORT * 

JIN RAM 

IOK - TRANSFER 
JSET UP FUR FLOAT 
; STORE AWAY INPUT 



IFIOAT IT 

{FIX D.£ RESTORE C»H,L 



JRAH INSTRUCTIONS 
; NUMBER 
;dec. PNT.7 

1M0DE=»1, IE. INPUT FROM 
JREAD CONSTANT TO GREG 
;IF ERRCR THEN CY=1 
;PNTS. TO CONSTANT 



! SUSa^JJ"^^ ioVAkV CREG fR0H " c " 
ipSSifH-S.-JSgSKfggiiSSS.cE 

J RETURN iflTH CY<=1 => ERRUR IN CONVERSION 



ST4 

SHLD 

MOV 

STA 

LXI 

MVI 

CALL 

LHLD 

LDA 

MOV 

RET 



MOOE 

HLINP 

A,C 

CREG 

H.GPEG 

C.SCK ANU 37 70 

FINPT 

HLINP 

CREG 

CA 



JSAVE C FUR ROUT. INP 
JWHERE VALUE WILL GO 
JSET UP AND CALL FINPT 



VAR DECIDES WHETHER A TOKEN IS 
A VARIABLF IF SO CY= I AND 

EVA D LUA S fED S ETC M - UT ^^'- S ^ S ^. PT ^ S - 

70 V4R. REFEREi 

A.B DESTROYED 

IF NOT A VARI6LF CY=0 

H.LfC ARE LEFT UNTOUCHEO 



CALL 


ALPHA 


RNC 




INX 


H 


OCR 


C 


JNZ 


MURE 


PUSH 


B 


MVI 


CO 


DCX 


H 


MOV 


8,M 


INX 


H 


JMP 

CALL 


SCALR 


ALPHA 


JNC 


SFSG 


PUSH 


a 


MVI 


A, 2 


CALL 


SYMSRT 


POP 


B 


INR 


A 


JNZ 


SCI 


OCX 


c 

H 


ORA 


A 


RET 




CALL 


NU.-iB 


JNC 


ARCK 


INX 


H 


DCP 


C 


JZ 


SL0A3 


PUSH 


6 


MVI 


A. 2 


CAl L 


SYMS*T 


POP 


B 


INR 


A 


JZ 


ERS 


DCX 


H 


PUSH 


B 


MUV 


CM 


OCX 


H 


MOV 


B,M 


INX 


H 


INX 


H 


XCHG 




CALL 


FSYM 


XCHG 




POP 


B 


STC 




RET 




MOV 


A.M 

2500 


CPI 


JZ 


ARYES 


HVI 


A, 2 


PUSH 


B 


CALL 


SYMSHT 


POP 


B 


INR 


A 


J2 


ER8 


JMP 


SCI 


DCX 


H 


MOV 


A,M 


INX 


H 


PUSH 


PSW 


CALL 


ICP8 


CALL 


EVAL 


PUSH 


H 


LXI 


H.FKld 


CALL 


COPDH 


XCHG 




PGP 


H 


CALL 


FIX 


MVI 


A, 2510 


CMP 


M 


JNZ 


ER8 


INX 




DCR 


C 


INX 


D 


INX 





LDAX 


D 


MOV 


B.A 


INX 


D 


LDAX 


U 


OKA 


A 


RAl 




MGV 


E,A 


MUV 


a, a 


RAL 




MOV 


D,A 


MOV 


A.E 


ORA 


A 


RAL 




MOV 


E.A 


MOV 


A,D 


RAL 




MOV 


D, A 
PSW 


POP 


PUSH 


B 


MOV 


CA 


MVI 


8,0 



11ST CHAR A LETTER? 
;NO-NOT VAR. 
;BUMP PNTR'S 

iMQRE TO LINE 

ISAVE B.EOL 

JSET FUR CALL TO FSYM 

{GET SINGLE LETTER 

'.VAR TO B 



;2ND A LETTER? 

JSO FAR SU GOGD 

ISAVE C 

ICHECK FOR DELIMITER 

JRESTORE C 

;FOUND? 
;YES 



ICY-O AND RET 

ITCST FUR NUMBER 
;MAYBt AN ARRAY 

jits a scalar 
jbump pntr's 
;eol 

ISAVE C 

JSET UP FOR SYMSRT 

{JEST FOR LEGAL 

IGET C BACK 

JDELIHITER FCUNO? 

JNU, ERROR 

;MUVE SACK., 

tSAVE C 

JGET VAR. INTO 

IB.C FOR FSYM 



JSAVE H.L IN D.E 
JGFT PNTR TO VALUE 
JRESTORE H.L PNTR TO OE 
JGET C REG BACK 
JSET CY.RET 



GET CHARAC 



il CHAK. SCALAR VAR. 
JYtS-WE HAVE ARRAY 
IGET VAR. 

J SAVE VAR. 
JBUMP PNTR'S 
JEVALUATE SUBSCRIPT 
JSAVE REG H,L 



JRESTORE H.L 
JFIX VALUE 
JCHECK FOR 1 



;H-BYTE TO 8 
JPNT TO LOW BYTE 
ILOW BYTE TO A 
JKILL CY 

J START MULT OF OFFSET 
JBY 4(BYTES/FLTPT *) 



JGET H BYTE 

IDE IS GFFSET*2 
JGFT LOW 
JKILL CARRY 



JSETUP TO CALL FSYM 



903 


F5 






904 




on 




907 


i)A 






90A 


it. 


1/ 




90C 


(.3 


HF 


lb 


90F 


19 






910 


FB 








U 






912 


f.l 






913 


M 






914 


C9 







FSYM 

AFONi) 
A.12H 
ERRO^ 



JC 

MVI 

JMP 

DAD 

XCHG 

POP 

POP 

STC 

RET 



RUUT1NE TO FIX FLCATING POINT 
NUMBERS, ALL REG'S BUT A ARE 
MAINTAINED. DE PNT TO 4 BYTES 
OF if TO BE FIXED 





19 15 


C5 




1916 


y 




1917 




1918 


13 




19 19 


13 




L91A 


13 




191B 


IA 






19 1C 


F5 






910 


E6 7F 






9 IF 


17 






.9 20 


17 






921 


DA 30 


19 




924 


IF 






925 


IF 






926 


FE 18 






.92B 


DA 32 


19 




92B 


3E 13 






920 


C3 BE 


lb 




930 


IF 






931 


IF 






932 


12 






933 


IB 






934 


IB 






935 


IB 






936 


21 7C 


21 




939 


CD A8 


17 




93C 


21 80 


21 




9 3F 


11 6F 


19 




942 


CD A8 


17 




945 


21 7C 


21 




948 


06 80 






94A 


OE 66 






94C 


CD DO 
21 7C 


OF 




94F 


21 




952 


Fl 






953 


Dl 






954 


17 






955 


3E 00 






957 


IF 






958 


46 






959 


12 






95A 


78 






9bB 


E6 7F 






950 


13 






95E 


23 






95F 


46 






960 


12 






961 


13 






962 


78 






963 


23 






964 


46 






965 


12 






966 


I! 






967 






968 


12 






969 


IB 






96A 


IB 






96B 


ilB 




196C 


tl 




196D 
196E 


CI 




C9 




196F 


80 UO 


00 18 



PUSH 


B 


PUSH 


H 


PUSH 


LI 


INX 





INX 


D 


INX 


D 


LOAX 





PUSH 


PSW 


ANI 


1770 


RAL 




RAL 




JC 


MINSE 


RAR 




RAR 




CPI 


300 


JC 


GOOD 


MVI 


A.13H 


JMP 


ERROR 


RAR 




RAR 




STAX 





DCX 





DCX 





DCX 





LXI 


H,FREGL 


CALL 


COPDH 


LXI 


H.FREG2 


LXI 


D.FDAT 


CALL 


COPDH 


LXI 


H.FREGl 


MVI 


B.FREG2 AND 


MVI 


C.SCR AND 37 
LADD 


CALL 


LXI 


H.FREGl 
PSW- 


POP 


POP 


D 


RAL 




MVI 


A,0 


RAR 




MOV 


B,M 


STAX 


D 


MGV 


A.B 

17 7Q 


ANI 


INX 


D 


INX 


H 


MOV 


B.M 


STAX 


D 


INX 





MOV 


A, 8 


INX 


H 


MOV 


B.M 


STAX 


D 


MUV 


A, 8 


INX 


D 


STAX 


D 


DCX 


D 


DCX 


D 


OCX 





PUP 


H 


POP 


B 


RET 




on 


2000.0.0.300 



JSAVE H.L 

JGET START ADD. 

JERROR 12 

JARRAY REF. NOT OIM'ED. 
JH.L. NOW PNT TO START 
JARRAY, ADD OFFSET. EXC 
JRESTORE PNTR'S AND RET 

JSET CY 



I SAVE REG'S 

JPNT TO 4TH BYTE 

JSAVE CHAR. (FOR SIGN) 
JCHEK IF EXP SIGN IS - 



JABSOLUTE VALUE 



JMOV PNTR BACK 

JCUPY TO FREG1 

ISTORE .5*2**24 IN 

JFREGZ 

ICOPY IT 

;SET UP TO CALL LADD 



JAOD THEH.RESULT IN FRE 
JGET SIGN AND AOO. 

JGET SIGN ONLY 



JCLEAR HIGH BIT (FROM A 



FDAT: 

J* INP SAVES ALL REG'S 

I ^?y E S.£, S . T A BUFFER ROUTINE BETWEEN FINPT AND 

DATA INPUT. IF MODE=0, DATA CUMCS FKLiM TTY 
1 l ,t ^P E ;ic D 5 TA CCCS FROM SOURCE STMTS. 

^ C *>!jmR*SI?, ,%Uk A X E T H£ D * T .ED - FHgM HLINP, AND 



1973 

1974 
1975 
1976 
1979 
19 7C 
197D 
97F 
1981 
983 
.984 
985 
9 36 
987 
98A 
9UB 
9BE 
98F 
991 
994 
997 
99A 
99D 
99F 
9A2 
9A4 
9A7 
9A9 
9 AC 
9AE 
9B1 
9B2 
9H3 
9 34 
.996 
19 B9 
.994 
9iiB 
9BC 



9 C3 

9C4 



J CPEG AND RETURNED TO THOSE LOCATIONS 



INP: 



CA 97 19 

FE AC 
CA 81 19 
C3 BB 19 
CD 14 .12 
DA BB 19 
FF AE 
CA BB 19 
FE Cb 
CA BB 19 
FE AB 
CA 61 19 
FE AO 
C2 81 19 
47 
2B 



PUSH 

PUSH 

PUSH 

LHLD 

LDA 

MOV 

ORA 

JNZ 

MVI 

POP 

PGP 

POP 

RET 

LDA 

DCR 

JZ 



CPI 

JNZ 

MOV 

DCX 

MOV 

CPI 

JNZ 

MGV 

INX 

INX 

DCR 

SHLD 

LXI 

MGV 

JMP 



MODE! 
A.M 

* t ' OR 

SPACE 

BMPTR 

NUMB 

BMPT* 

256Q 

BMPTR 

305Q 

BMPTK 

253Q 

CHEKl 

255Q 

SPACE 

B.A 



305Q 
SPACE 
A,B 



I DONE 



JSAVE ALL REG'S 



JCHECK FOR EGL 
JNC CHECK *00E 
JSEND A SPACE 
JRESTORE REG'S 



JANO RETURN 

JGET MODE 

JCHECK IT 

JMODE IS 1 

I MODE 0, GET CHAR. 

IYES - SEND A SPACE 
JNO - SEND IT 
JNUM9LR7 (ALSO LOADS IT 
JYES - SEND IT AND BUMP 
IDEC. PNT,? 

IE? 

J + ? 

I-? 

JSEND A SPACE 

JCHEK IF t PRECEDES +.- 

JBACK UP ANO GET PRF- 

JCEDING CHARACTER 

JIS IT E? 

JNO.*UR- WAS OELIMITTER 

JYES, GET * OR - 

JRESTORE H.L 

IBUMP ANO STORE PNTR'S 





19C7 


IF 


40 








RE 








9CA 


F 1 ) 








9CB 


{.2 








9CF 


U) 


FB 


15 














9D4 


( S 








9D5 










908 


rn 


AH 






9DB 


FH 








9UC 


Fl 


















9DE 


(? 








9E1 


1 i 








9E2 


1 S 


















9F4 










9E5 


i r 








9E6 










9E7 










9E8 


i/ 








9E9 


IB 








9EA 










9E6 












79 








9 ED 


B7 








9«=E 


C.H 








9EF 


rs 








9F0 


JF 






. 


9F2 
9F5 
9F6 


CD 
CI 


F / 


12 




9F7 


(A 


f? 






9FA 
9FC 
9FD 


D6 
D8 
F5 


OA 




19FE 








1A01 








1 


A02 


15 







I THIS ROUTINE WILL EVALUATE UNARY 

J BINARY EXPRESSIONS CALLED WITH [ 

; POINTING TO FIRST CHAR. OF EXP 

J NUMBER OF CHAR'S LEFT IN LINE. ,. 

J OIHIGH) AND E(LUW) POINTING Tu T. 

J THIS ROUTINE CALLS ITSELF RECURS 

J IN ORDER TO EVALUATE SUBSCRIPT 

J EXPRESIONS. REG A.FI OESTROYED 

J C.H.L ARE UPCATED 

IvALJ 



IRESTORE REG'S AND RETJ 

AND/OR 
AND L 

C CONTAINS 
ETUPNS 
HE ANSWER 
IVELY 



MVI 




CMP 




PUSH 




JNZ 




CALL 


ICPB 


CALL 


VALUE 


PUSH 




LXI 


H.FREGl 




COPDH 


XCHG 








POP 




JNZ 


DOL 


INX 


D 


IW. 


D 


INX 


D 




D 


RAL 








RAR 




STAX 


D 


DCX 


D 


DCX 




DCX 




MOV 




GRA 


A 


RZ 




PUSH 


B 


MVI 




CALL 




POP 


6 


INR 


A 


JZ 


ER8 






RC 




PUSH 


PSW 


CALL 


ICP8 



JIS IT UNARY - 
;z=i => YES 
IZ=0 => NO 

JBUMP POINTER 

JGET PNTR. TO VALUE 

IGET VALUE TO FREG1 



IGET SIGN 

JSHALL WE NEGATE? 

IYES, POINT TO CHAR. 



JAND LOAD TO A 
JROTATE SIGN TO CY 
JCCMPLEMENT IT 
JROTATE BACK 
JSTORE AWAY 
IAND FIX PNTR. 



IIS THIS END OF LINE? 

IYES-RETUPN 

ISAVE C 

JNO SET UP TO CALL 

JSYMSRT ANO CALL 

JRESTORE C 

JDELIMITEP FUUND? 

;N0, ERROR 

JCHECK FOR EXPRESSION 

IDELIMITER 

JSAVE OVERATION 

JBUMP PNTR'S 

JCLEAR CY 

JGET BYTES OF NUMBER 



JANUARY 1977 



INTERFACE AGE 101 



SOFTWARE SECTION 



MICROCOMPUTER DEVELOPMENT SOFTWARE 



A03 


1A 








MOV 


AD5 


U 








LOAX 














Aoa 


67 








XTHL 




"U 








JC 






<)/ 






AOF 


Ll) 


c:i 


17 




MOV 




H7 










1A13 


LA 


2/ 


1A 




PUSH 
















1,1) 


F7 


12 




















FF 


OA 












>■/ 
















ER8." 






i.\ 


Bi- 


15 


































fid 


21 












17 




















fl 


























/(- 






















77 


/( 


21 


















1A3A 


LI 











1A3B 

1A3C 

1A3Q 

1A40 

1A42 

1A44 

A45 

A48 

A4B 

IA4C 

A4F 

A50 

1A53 

1A5J. 

A59 

A5A 

A5B 

A5C 

A5F 

..A60 

1A61 

1A64 

A65 

1A63 

A69 

A6C 

A6D 

A70 

A71 

A74 

A77 

1A7A 

1A7D 

1A7E 

.A7F 

ABO 

AB1 

1A84 

A37 

ASA 

AS LI 

1A90 

A91 

A92 



21 7C 21 
06 00 
OF 66 



CA 61 1A 
C3 22 1A 
CD DO OF 



OA 40 14 

C3 41 14 

21 5A 14 

CD DF 15 



CI 

C9 

CD D9 OF 

C3 59 1A 

CD 03 OF 

C3 90 IA 

CD 06 OF 



'54 

59 



IA95 

1A98 

IA99 

1A9A 
A9B 
A9E 
A9F 
AAO 
AA2 
AA5 
AA6 
AA3 
.AAB 
AAE 
AAF 
AB1 

_AB4 

1AB7 

abb 

ABA 
ABD 
ABE 
ABF 
ACl 
AC4 
ACS 
ACS 
1AC9 
ACA 
ACD 
ACE 
ADO 
AD3 
AD6 
AD9 
1A0C 
ADF 
AE2 
AE3 
AE5 
AE8 
IAEA 
AED 
AEE 
AFl 
AF2 
AF3 
AF4 
AF6 
AF9 
AfA 
AFB 
AFC 
AFD 
AFE 
AFF 
602 
B04 
B05 
_B06 
B07 
B09 
BOC 
BOE 
Bll 
B12 
814 
B15 
B18 
BIB 
BID 
B20 
1B23 
B25 
_B26 
1B27 
B2A 
B2D 
B2E 
B2F 
B30 
B31 
B33 
1B36 
B37 
838 
839 
1B3A 
B3B 



3E 00 
CO At) 12 
C3 46 IB 
7E 

FE A2 
C2 D6 U 
CO F6 15 



CA 46 IB 
7E 

FE A2 
CA BO IA 
C3 07 18 
CO 22 12 
DA EO IA 
CD 14 12 
DA ED IA 
7E 

FE AE 
CA EO IA 
FE AD 
C2 07 IB 



FE BB 

CA 39 IB 

FE AC 

C2 2C 17 

AF 

C6 00 

88 

CA IB IB 

D2 2D IB 

FE 34 

C2 12 IB 

CD DO 12 

06 00 

23 

OD 



[AND PLACE ON STACK 



J2 BYTES TO H.L , 
[XCHANGE. RESTORES H.L 

;ANOTHER PASS? 

[GET 2ND VALUE „ , ite . 

[CHECK FOR END OF LINE 

IF SO »> HELL FORMED 



[YES, WELL FORMED 
ilLL-FORMED EXP. 

;SAVE C, AND H.L 

;COPY 2ND VALUE TO 

(FREG2 

i&ET BYTES FROM STACK 

J1NT0 FREG1+2 



iGET OPERATION 

THIS ROUTINE PERFORMS BINARY OPERATIONS ON OPERANDS IN 
3,C,H,L ARE LEFT UNDISTURBEO. A IS DESTROYED 

Ql fcRATIONS ARpSPEClFlED BY A REGISTER AS FOLLOWS: 



WFOR 

a, a 

ERROR 



OP! 



A=l 
A = 2 
A = 3 



FREG1 • FREG2 

FREG1 / FREG2 

FREGl ♦ FREG2 

FREG1 - FREG2 



IN CASE OF ARITHMETIC ERROR A MESSAGE IS SENT TO USER. 
IF A CONTAINS ILLEGAL OPERATION REQUEST ERROR I S SENT T 
(ERROR 81 AND RUN (THE INTERPRETER) IS ABORTED. 



8INUP: PUSH 

PUSH 
LXI 

MVI 

MVI 

DCR 

JM 

JZ 



DCP 
JZ 
J MP 

AOOD: CALL 

ASBC: MOV 

MOV 

FPERR: ORA 

JZ 

PUSH 
PUSH 
CALL 
POP 
LXI 
PUSH 
LXI 
RAL 
JC 
RAL 
JC 
JMP 

UPPER: LXI 

CALL 
POP 

NFPER: POP 

POP 
RET 

SUBB: CALL 

FMU1T: CALL 

JMP 

DIV: CALL 

MOBC: MOV 

WOV 

JMP 



H.FRCGl 

B.FREG2 AND 377G 

C.SCR AND 3770 



;SAVE REG'S 

[SET UP PNTR'S TO 
[FREG'S AND SCR AREA 

;AND DO OPERATION 



;0»lO* OR / 
[2.3=>* OR - 



LADD 
U,H 
E.L 



FURil 
FUR 10 
H.ODATA 



Mi UUA 

ERLN 



LSUB 

ASBC 

LMUL 

MD3C 

LDIV 

0,H 

E.C 

FPER* 



PRINT PROCESSOR 

PRi: LHLD C 

I NX H 

INX H 

I NX H 

CALL I 
INX 
DCP 
MVI 
JNZ 
INR 
MVI 
CALL 
JMP 
MOV 
CPI 
JNZ 
CALL 
MOV 
CPI 
JZ 
INR 
MDV 
MVI 
CALL 
MOV 
JMP 
INX 
DCP 



PL OOP: 
QUOTE: 



C 

B,0 

PLUOP 



"••+203Q 

EXPRc 

ICP7 



D,B 
B,l 
PAD 



JZ 

MUV 

CPI 

JZ 

JMP 

CALL 

JC 

CALL 

JC 

MDV 

CPI 

JZ 

CPI 

JNZ' 

PUSH 

CALL 

PUSH 

PUSH 

XCHG 

MVI 

CALL 

POP 

POP 

MOV 

PUP 

MOV 

ORA 

JZ 

MVI 

ADD 

MOV 

MOV 

CPI 



ON WO: 
FLDFO: 



JNZ 

XRA 

ADI 

CMP 

JZ 

JNC 

CPI 

JNZ 

CALL 

MVI 

INX 

DCR 

JZ 

JMP 

SUB 

MUV 

MUV 

MOV 

MVI 

CALL 

MOV 

ADD 

MOV 

INX 

DCR 

JNZ 



PENU 

A,H 

'"'+200Q 

QOTOK 

SCDLS 

ALPHA 

PRTlt 

NUMB 

PKTIT 

AtM 

•.'♦200Q 

PRTIT 

»~**200Q 

SCOLN 

B 

EVAL 



A,C 

B 

C,A 



B,A 

A,M 

SONHD 
«,'+20QQ 

ER6 
A 

13 



ADFLD 

WRIT 

B,0 



d,b 

E,A 

B.A 

A.243Q 

PAD 

A,D 

E 

B,A 

H 

C 

PLDDP 



[ILLEGAL OPER. 

[DO ADDITION 

;F1X PNTR'S FOR RET. 

JSET FLAGS 
;N0 ERROR 

[SAVE DL 
[SAVE A 
;DUMP BUFFER 
;GET A BACK 

[RETURN ADDRESS 
;SAVE UN STACK 
[MESSAGE TABLE 
[UNDERFLOW? ' 
[YES 

[overflow? 
;yfs 

JNO - ITS ZERODIVlDt 
[MESSAGE TABLE 
[PRINT 'IN LINE --' (US 
[RESTORE REG'S 



;D0 SUBTRACTION 
[DO MULT. 



[CHECK FOR ERROR 



;INCR. PAST KEYWORD 



;8UMP PNTRS 

[SET CHAR CNT 

[CONTINUE IF MORE 
[NOTHING MORE, PAD A NU 



[WRITE IT AND CONTINUE 
[GET CHARACTER 
[IS IT "? 

[GET CHARACTER TO A 

[IS IT •*? 

[INCREMENT CNT 
[SAVE IN D 
[PAD ONCE 

[RESTORE CNT 
[AGAIN 
[BUMP PNTRS 

;EOL 

[ANOTHER "? 

[IS IT A LETTER 

[YES, EVALUATE AND PRIN 

[IS IT A NUHB7 

[YES, EVALUATE AND PRIN 

;IS IT A DECIMAL PNT? 

[YES EVALUATE, PRINT 
[IS IT A -? 
[NO. CHECK FOR [ 



[RESTORE REG'S 



[CHECK EOL 
IUPOATE CNTR 

[GET CHAR. 

[IS IT [? 

[YES 

;IS IT ,? 

[NO-UNEXPECTED CHAR. 
[ZERO A 

[ADD FIELD LENGTH 
[COMPARE TO CNT 



[YES-WRITE LINE 

[RESET CNT 
[BUMP PNTRS 



[FOUND FIELD F „ 

[DETERMIN OF SPACES T 
;SET UP TO CALL PAD 



IBJt 
IB40 
1B43 
1846 
IB49 



1B4C 
1B4D 
IB 50 
1B53 
1B54 
1855 
1B56 
1B59 
1B5C 
LB5U 
185E 
16 60 
LB62 
1B63 
IBfto 
1669 
1B6C 
IB6F 
1B70 
1B71 
18 72 
IB73 
1B76 
IB 79 
1B7C 
187F 
1B82 
IUB5 
1B36 
IB34 
IB8C 
1B8F 



16 01 
CD D2 12 
C3 49 IB 



CD AO 12 
CD 02 12 
21 91 21 
CD C9 13 



CD 42 14 
CD 00 12 
3A 5F 21 



[NEW CNT 
[SAVE IN B 
[CHECK EOL 



894 
895 
B96 

B93 
898 
B9C 
69D 
BAO 
BA1 
BA2 
BA3 
1BA4 
BA5 
BA7 
8AA 
BAB 
BAG 
6AF 
BBO 
HB1 
8B4 
BB5 
BBS 
BB9 
_BBA 
IBBB 
BBC 
.880 
1BBE 
BCO 
BC3 
BC6 
_BC7 

eca 

BC9 

_BCA 
16CH 
BCC 
BCF 
.BD2 
.BD5 
18D6 
1BD7 
1BD8 
BD9 
BDA 



1BDD 

1BE0 

1BE1 

1BE2 

1BE3 

1BE4 

1BE5 

1BE8 

1BEA 

1BED 

1BF0 

XBF3 

1BF5 
BF8 
BFA 
BFD 
BFE 
C01 
CQ2 
CQ3 
C04 
CD5 
C06 
C09 
COA 
COC 
COF 
C12 
C15 
C16 
C19 
C1C 
.C1D 
C1E 
C21 
C22 
C23 
C24 
C25 
C26 
C27 
C29 
C2C 
C2F 
C31 
C32 
C33 
C34 
C36 
C39 
C3C 
C3F 
C40 
C43 
C46 
C49 
C4C 
C4F 
C52 
C53 
C56 
C57 
C5B 
C59 

C3A 

C 5 li 
Cbf 

LC61 
L63 

1C64 
C65 
C66 
C67 
L6B 
C6H 
C6C 
C6F 
C7G 

1C71 



FE AC 
C2 AO IB 
23 



3E 00 
CD 53 18 
D2 CB IB 



2A 8A 21 
11 77 21 
CO AS 17 



79 
B7 

C2 ED IB 
3E 07 
C3 BE 15 
CD 60 18 
DA 32 1C 
3E 03 
CD F7 12 
FE FF 
CA 22 IA 
3D 
C2 78 IC 



FE A8 

C2 22 IA 

CD FB 15 

CD C7 19 





A9 




r? 


/? 


IA 


r.n 


FB 


li 


16 


FF 
















n 






F^ 


BD 




r? 


77 


IA 






lb 


nn 


r.i 


!■) 










AH 


U 


DA 


41. 


IC 


(j) 


AH 


w 


L3 


K 


IB 
?1 


CD 


All 


1/ 



MVI 

CALL 

JMP 

CALL 

JMP 



D.l 
WRIT1 



[SUPPRESS CR/LF 

[DUMP BUFFER. CONTINUE 



INPUT PROCESSOR - READS VALUES FROM TTY 
THEY MUST BE DELIMITED BY COMMAS ONLY 



Input: 



MDV 

STA 

LHLD 

INX 

INX 

INX 

CALL 

CALL 

PUSH 

PUSH 

MVI 

MVI 

MGV 

CALL 

CALL 

LXI 

CALL 

XCHG 

POP 

PUP 

MUV 

CALL 

JZ 

LXI 

CALL 

CALL 

LDA 

MOV 

JMP 

JC 



A,C 
PL6 
CPNT 



B 

H 

B,l 
A,':' 

D,6 

PAD 

WRIT1 

H.IBUF 

TTYIN 



B 

8, A 
5TRIN 

INPUK 

H.ODATA 

F0RM9 

WRIT 

PL6 

C.A 

INPER 

PRMPT 

KFPNT 

I LOUP 



[IN CASE OF ERROR 

[SAVE 

[INPUT LINE (V-STRING) 

[ADJUST PNTR'S 



[SAVE PNTR'S 

[SEND PROMPT 

[TO SUPPRESS CR/LF 

[PAD IT 

[WRITE IT 

IADD. JF INPUT BUFFER 

[READ A LINE 

[ADD. OF K-STRING TO DE 

[ADD. Of V-STRING 

[V-STRING CNT TO C 

[K-STR ING CNT TO B 

[TRANSFER CONSTANTS TU 

[NO ERROR 

[SEND ERROR MESSAGE 



[GET V-STRING CNT 

[START AGAIN 

[NEED MORE CONSTANTS 
[ALL OK - GET NEW PNTR. 
[CONTINUE 



THIS ROUTINE TRANSFtRS THE FLOATING POINT VALUES 

OF AN ASCII STRING uF OJNSTANTS TO THE LOCATIONS 
SPECIFIED BY AN ASCII STRING OF VARIflLES 
POINTER AND LINE CNT OF VAR. STRING ARE IN HL.C 
PL INTER AND LINE CNT UF CCNST. STRING ARE IN &E.8 
UN RETURN: 

Z=0 AND CY=0 ALL UK 

Z=0 AND CY=1 NEED MORE CONSTANTS 

Z=l ERROR IN CONVERSION 

ALL POINTERS AND LINE CNT'S ARE RETURNED UPDATED 

rRlN! MOV A,C iSiI, V SSI R |S? CNT 

noA a [TEST FOR EOL 

[DONE, CY=0 »> ALL UK 
[GET CHAR. 
[IS IT A ,? 
[IT'S NOT A , 
[COMMA, BUMP PNTR'S 

[POSSIBLE ERROR (IF EOL 

[GET K-STRING LENGTH 

[TEST FOR EOL 

[IN CASE IT'S EOL 

[RET, CY=1 => NEED MORE 

[GET CHAR 

[TEST FOR , 

;NJT A , - READY TO GO 

[BUMP PNTR'S 

[POSSIBLE ERROR (IF EOL 
[SAVI K-STRING CNI 
[SAVE K-STRING PNTR 
[ADO. TO VARIBLE TO OE 
[VAR. ADD TO H.L 
[SAVE 

[ADDRESS OF K-STRING 
[V-STRING CNT TO A 
;K-STRING CNT TO B 
[K-5TRING CNT TO C 
[SAVE V-STRING CNT 
[SAVE V-STRING ADD. 
[A=0 => DATA FROM TTY 
[GET CONSTANT TO GREG 



MOV 
CPI 
JNZ 
INX 

DCR 
JZ 
5T0KV: MOV 
ORA 
STC 
RZ 

LDAX 
CPI 
JNZ 



STDKK: 



INX . 

DCR 

JZ 

PUSH 

PUSH 

CALL 

XCHG 

SHLD 

POP 

MOV 

POP 

MOV 

PUSH 

PUSH 

MVI 

CALL 

JNC 

POP 

POP 

ERRET: XRA 
INR 
RET 

STNfcR: PUSH 
LHLD 
LXI 
CALL 
POP 
MOV 
POP 
PUP 
MOV 
JMP 



PSW 

D 
A,0 

RDKUN 
STNEP 



CDPDH 



PSW 
C.A 

STRIN 



LET STMT. PROCESSOR 



LET: LHLD 
INX 
INX 
INX 
MOV 
ORA 
JNZ 

ER7: MVI 
JMP 
CALL 



LOK: 



JC 

MVI 

CALL 

CPI 

JZ 

DCR 

JNZ 

INX 

INX 

INX 

MDV 

ORA 

JZ 

MOV 

CPI 

JNZ 

CALL 

CALL 

PUSH 

LXI 

CALL 

?BP G 

CALL 
INX 
INX 
INX 
LDAX 
PUSH 
MOV 
CPI 
JNZ 
CALL 
HVI 
MOV 
SAW: PUSH 
MOV 
CPI 
JNZ 
CALL 
CALL 
POP 
CALL 
JC 

CALL 
JMP 
PTFIN: LXI 
CALL 
XCHG 
CALL 
INX 
INX 
INX 
LDAX 
M.1V 
LXI 
LXI 
MVI 
PKll: MCV 
STAX 
INX 

DCP 
JNZ 
PGP 
LXI 
MUV 
MJV 

UCX 



A,C 

A 

LOK 

A, 7 

ERRO* 

VAR 

SAW 

A, 3 

SYMSRT 

3770 

ER8 

A 

ER10 



A,C 

A 

ER8 

A,M 

2500 

ER8 

ICP8 

EVAL 

H 



A.F! 

2510 

ER8 

ICPB 

D.3770 

E.D 



A.M 

275Q 

ER8 

ICP8 

EVAL 

H 

CHK1 

PTFIN 

COPDH 

COPDH 



[EMPTY STACK 
[ERROR 

[SAVE K-STRING PNTR. 
[GET VAR. ADD 
[ADD. TO CONST. 
[COPY IT TO VARIABLE LO 
[K-STING PNTR. TO DE 
[K-STRING LENGTH TO B 
[V-STRING PNTR. TU HL 
[V-STRING LENGTH TO C 

[LOOP 



[CHECK FOR EOL 



[GET ADORESS TO VAR. 
[IT'S A VARIABLE 
[NO-CHEK FOR FUNC. 

[DON'T KNOW WHAT IT IS 

[ILLEGAL USE OF FUNC. 
[IT'S PUT, UPDATE H,L 



[EOL CHK 
[CHEK FOR I 



[BUMP PNTRS 
[EVALUATE ANO FIX 
[SAVE H.L 



[CHECK FOR I 
[BUMP PNTR'S 



[BUMP PNTRS 
•EVALUATE EXPRESSION 
[GET ADDRESS 



H.PIIIST 
D.GRL I, 
B,5 



[FIX THE VALUE 



[SAVE IN C 

[ADD OF BYTES TO GO TO 

[RAM AT GRtG 

[BYTE CNT 

[STORE PROG. SEG. IN 

[F.AM 



[GET PORT H 

(STORE 

[GET UATA UUT TU A 

[TRANSFER 
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1C72 


F9 




1C73 






1C75 












1C7A 


C3 BF 


15 


C7U 






.C30 






.CBl 






ca^ 






C8b 






C3u 


79 




C39 


B7 




C3A 












C3E 






C8F 






C90 


>-.F 




til 






CTd 






c-a 






L94 






L95 








DA 3D 




IC99 






IC9B 


CD F7 




C9I: 






CAJ 


,)A A3 




CA3 


iE 14 




CA5 






CAH 












LAD 


sc 




CAE 


F5 




car 


OC 




.C30 






CB3 






C'i5 


cn F7 




l,Q3 






CBA 


CA D5 




C3D 
CBF 


FT 02 








CC2 






CC. 












CC8 


47 










CCA 






CCD 












CCF 






CDJ 






CD2 


CA A3 


1C 



1CD5 






C 03 






C [19 












CDF 












t.fcl 


F3 






?2 7E 










CE6 






CF.7 












CEB 






etc 






CEF 


5 7 










CF1 






CF? 


6 A 






CA It, 






D6 04 




CF8 






CFb 


















D01 


BA 




D02 






005 


C3 12 










009 






OOC 






UOE 






D )F 
















i 








h 






1) 


r 






.'J 


9 














n 


i) 


CI 19 








C3 09 


17 



1D25 


?1 










U29 






D2A 






fJ2t. 






U2D 


4F 




D2F. 












030 


A9 




D31 


f A 




D34 






D3b 






D36 






U38 






D39 












U3B 






D3C 






DJD 






U3E 


?H 




03F 


43 




04U 


05 










042 






1043 


r& 


OF OF 


104u 






.U47 






.L-4A 






,04f. 






.04D 


79 










.U4F 


3F 




L051 


FA 


57 ir 



PCHL 

pinst: nur 

JM1> 

t»10: evi 

JMP 



I END 
A, 10H 

FRP.t:" 



If STMT. PROCESSOR 



CALL 








MOV 




CRA 


A 


JZ 




PUSH 


H 


I.IWS 




[NX 


d 


MOV 




L 1J ft X 




I NX 





MUV 


h,A 


XTHL 




CMC 




JC 


I AGA 








SYMSi 


CPI 


4 



;RAM INSTRUCTIONS 



jget PNTR. , ADJUST 

JCHECK. fcOL 

JtVALUATE FXPRESSIUN 

[CHECK EUL 

JSAVE H,L, PUT VALUE UN 



PUSH 


PS* 


INR 




CALL 








CALL 






377Q 




RELAT 






JZ 




CPI 




JNC 








m nv 




I Mi 




CALL 




PUP 




ADD 




PUSH 


PSW 








FR14 



AT THIS POINT : 

iti*}[£!£oti^ UFED " N TtlPor 



CALL 
PUSH 
LXI 

CALL 

PGP 

PiiP 

XTHL 

SHLD 

POP 

XTHL 

SHi.L> 

PUSH 

PUSH 

CALL 

MOV 

PGP 

PflP 

CVP 



FCCMP 
D, A 
PSW 



JZ 

sur 



■i!4i 








CHP 




JNZ 




J M l ; 




CMP 


D 


JZ 








CMP 




JZ 








JMP 




PUP 




MVI 


8,4 




DCR 


6 








GTRA 



;R£$TOftr h,L 

jANOThER PASS? 



i-WAS IT A ,? 
;ALL UK, INC, SAVE 



;IT hAS A , 
jnot LEGAL 



jand save 
;tfst for == 



STACK (PUSH PSta) ACCORGlNG 



JEVALUATE 
;SAVt H,L 
;COPY TG FREG2 

JGET H.L 

janD relation 

)i\i«( m '' B,TES 

;GFT 1ST 2 BYTES, STORE 



JSAVE A.B.C 
ICUMPARE -NUMBERS 
JSAVE RESULT IN 
JStT RELATION, B,C 



JNUT RELATION 3 

SIS IT RELATION 3? 

I NO, ITS FALSE 

;l t IS, CHECK FOR INEQU 



jRELATION 5.6 TRUE? 

tl T WAS, CHECK FUR EQUA 



ROUTINE FCOMP COMPAKES 2 FLOAT 
TO bf IN FREGl AND FREG2. 
ALL REGISTERS APE DESTROYED. 

RESULTS ARE AS FOLLOWS: 



fcCMP: 



IDS 
10 b'. 
IDSo 
1(157 



11) SA 
U5J 
.D5E 

1D6 1 
[J 6 ? 
63 
064 
DC) 7 
1j6q 
Do A 
OoJ 
DfJ 
1)73 
UT't 
073 
U77 
I) 7.1 
UIH 
D7A 
070 
U7E 
U7t- 
032 
033 



C*LL 

CALLP: 



23 

tl. 

ro Ft, i'j 
rr An 

C2 Efl lb 

I'M Ft l^. 

CO 2A 12 
65 

be 

if 00 

?A AC 21 



A=I 



LXI 

LXI 

MOV 

MVI 

ANA 

MOV 

LDAX 

ANA 

XRA 

JZ 

MOV 

R4L 

MVI 

PC 

INR 

RET 

PUSH 

OCX. 

OCX 

OCX 

Mnv 

OCR 
OCR 
DCP 
CUL 

■ PiJifjr 

POP 
JNZ 

MVI 
RFT 

MOV 



I. MP 

.RET 
R.NC 
INk 
RET 



LXI 

PUSH 
LHLD 
I MX 

ir^x 

i\x 

CALL 

M.JV 

CPI 

JNZ 

CALL 

CALL 

ADD 

" . 

MVI 

ADt, 



FREG1 
FKFGl 
FREG1 



ICC7 

A.M. 

ICP7 

cvb 
I 

LiA 



:CCNTINU£ 



^INCREMENT PAST -THEN 

{TRANSFER TO GOTO 
ING POINT »iS. THEY ARE 

RESULT OF COMPARISON. 

FREG2 

FRFG2 
FREG2 

JPNTS TG CHAR OF 1ST 

JPNTS TO CHAR OF 2ND 

JGET 1 CHAR 

iMASK TO B 

;get SIGN, 1 

JSAVE IN C 

{GET CHAR 2 

{GET SIGN 2 

JSAME SIGNS 

JLIPPISITE SIGNS.GET 1 
'.ROTATE TO CV 

JFREGI < FREG2 »> A«l 

;AND A«2 

;SAVE SIGN 

;PNTR TO 1 IN H,L 



jCC^PARE MAGNlTUOtS 
;oET SIGN BACK 



SSIGN IS NEGATIVE 
iSICN=# AND AHSIFRtGlX 
iABS(FRfGl»>AES(FRFG2» 

;SIGN*- AND ABSIFREG1)> 
;ABS(FKFG1I<ABS(FRL-G2I 



;INIT RETURN ADORESS 
UNIT PCIMERS 



JGET CHAR 
JIS IT A I? 
IUAU 
JBUMR PNTRS 



JCFT SUB 
JUPOATA H,L 



lSAVf- , ' - HL tJNUINS SUB 
,»^?>MS3 0P SUU "flu 



TO NEXT ENTRY 



ID 34 

I D d '• 

J.LJ >>> 

IDi) 
li)3B 

Il/.u: 

IfJHF* 
109 
ID 91 
LU92 
1U9 i 
ll)9tj 
1099 
1D9C 
LD9-J 
09c 
IJAO 

IJA'i 
I) A S 
OAt> 
UAL 
ULU 
iJLi,J 

IJBd 
LM19 
DhC 

1!J:3F 
lliCj 
.UC1 
DC2 
OCi 



C2 71. 
3f lb 
C3 BE 



.IZ 50 21 

2A 59 21 

22 80 21 
Fl 
7E 

FE A9 

CA CC ID 
FF AC 

C2 2f 17 

CD Fu 15 

CD 6 13 

02 B& ID 



!)C4 



LJC8 

DC 9 
DCC 
UCF 



1DU3 

1UD4 
1DJ7 
ILJiJ'.l 

liJJb 
lOOt 
IflEl 
1DL2 



I0E5 
I-Df6 



1DE7- 
t) E !\ 
UER 
DEC 
DED 
DFO 
UF3 
0F6 
0F7 
UFA 
DFQ 
DFO 

too 

E03 

C04 
E05 
E06 
K09 
frOA 
EOD 
■ . . 
EOF 

. l l :) 
Ell 
E12 
Ell 
E16 
E17 
E19 
E1C 
E1F 
F22 
£Zi 
E26 
E29 
E2A 
E2H 
E2C 
E2F 
F31 
i- « . 
E36 
E39 
E3A 
E3B 
63C 
E30 

1E40 
E43 

1E44 
E47 
E4A 
C 4 6 
E4C 
t4F 
r'32 



?A 59 21 
CO 14 15 
2A 5B 21 



CD F6 15 
CD 22 12 
l>2 9A IF 



OE 00 
CD 14 12 
D2 09 IE 



FE BD 

C2 01 IF 

CD F6 15 

CD C7 19 



79 

B7 

CA Efl IB 

3E 02 

CO F7 12 

Ffr 07 

C2 86 IF 



E53 C3 66 IE 



E56 
E57 
F 59 
E5C 
E5E 
E61 
E62 
1E63 
,E64 
E65 



3E 02 
CD F7 12 
FC oe 
C2 86 IF 





1666 








E6C 
















E71 








F72 


47 














F74 








E77 








E7A 










2A 59 








3E 08 






EOO 








E81 


6f 






E82 


3E 00 








8C 






EB5 


67 






E86 


22 59 


tt 










EOC 


Fl 






E8D 


01 






E8E 


CO AtJ 


1 f 




£91 








E92 


















23 














E9d 


77 








23 






















E9E 


23 






EA2 


11 90 


fl 




6A5 


23 






EA6 








EA7 








EA8 






: EA9 






IEAC 


tt 




LEAD 




1EAE 


3< S7 




1EB1 


77 




J 


EB2 
EQ5 


H 00 


00 



Iter. 



22 if 21 
? A ,< J, 



I NX 
I'J"-' 
Ah I 
MVI 
J Ml' 
I NX 

nrv 
rjx 

MJV 

*^r:v 

SHLC 
LHLD 
SHLD 



JZ 
CPI 

JKZ 
CALL 

CAt I. 

.Hit 

PUSH 

JMP 

CALL 

PUSH 

LHLO 

C A I L 

PHP 

PUSH 

I MX 

I NX 

I NX 

INX 

SHLu 

XCHC 

JMP 

LHLD 

PCHL 



L ,E ■ 
SBSAV 
NXTSP 
MESC-.- 



' I ■ *2 000 

CLSUii ■ 

' , **Z00ii 

ER6 

ICP7 

VAR 

PREXf 

U 



GLSUB PRUCESSCR 

JSUC-: LXI h 

PUSH 
LHLD 
PUSH 



CALL 

LHLD 
I, MX 
J HP 



NX f Si' 
MEMF:'I 
CPNT 



RETuftN STMT. PKUCESSU* 
ETRN: POP H 

RET 
FOR STATEMENT PROCESSOR 

f )R: LHLD CPNT 

INR C 

INX H 

INX H 

CALL ICP7 

CALL ALPHA 
JNC ER21 

MUV B,M 

CALL ICP7 

MOV D,C 

MVI C,0 

CALL NUMO 
JNC i*9 

MOV C,M 

INX H 

DCR D 

JZ ER7 

PUSH H 
CALL FSYM 
XTHL 

MOV E,C 

KUV CO 

MOV D,B 

XCHG 

SHLD VNAMC 
XCMG 
MOV A,M 

5Pj «ti n» ->rn\ 

HI 

CALL 

CALL 

XTHL 

CALL 

SHLD 

POP 

MUV 

ORA 

JZ 

MVI 

CALL 

CPI 

JNZ 

TNX 

(.MX 

MOV 

ORA 

JZ 

CALL 

PUSH 

LXI 

CALL 

MUV 

DRA 

JNZ 

LXI 

POP 

JMP 

P: POP 

MVI 
CALL 
CPI 
JNZ 
INX 
INX 
INX 
INR 
CALL 
CALL 

»T Tt-IS PUINT: 
i/AP.IABLE NAME 

IABLF AODRE 

IBLE HAS BE 

IT IS IN . 

" IS P1JINTE 
ARE POIN 

PUSH 
LHLD 
MVI 
ANA 

MOV 
MOV 
CALL 
JC 

PUSH 
LHLD 
MVI - 
ADD 
MOV 
MVI 
ADC 
MflV 
SHLD 
CALL 
PHP 
POP 
CALL 
INX 
INX 
5.MK 
INX 
LOA 
MUV 
INX 
IDA ■ 
MOV 
INX 
LXI 
CAt L 



CR16 
ICP7 
EVAL 



ER7 
A, 2 

SYMSKT 



H, FLINT 

COPDH 
A,C 



A(2 

SY-VSKT 



;CHFCK TO SEE IF LAST K 
;6R 15 - Nl; SUB BY THIS 
JFCJUND IT, GET STARTING 

JAND SAVE IT 

UNIT MEMURY SCRATCH AF 

JGET "SOURCE PfJTR iJACK 

tIS IT )? 

IVES - GU CALL SUA 

;Dfl hE HAVE A «? 

JUEXPtCTEL ChARALTFR 

JBU^P PNTI-S 

;00 t.E HAVF A VARIABLE 

;*ves - save address 

jcuntinue 

jevaluate expression 

jget scratch area 
jand copy to it 
;hl to de 
isave address 

JUPJATc MLSCR 



JSAVE IT 

:GET H,L BACK 

jCCNTINUfc 

JSTART OF ROUTINE 

JTHANSFER 



JFUR frETUPN STMT. 
JTO SIACK 

JPNTR. TO NEXT STMT. 
JSAVE ON, STACK 
JCHECK MEMORY 

JGET CHAR. PNTR 

JPART OF GUTO TU FINISH 



K.ET RETURN ADD. FROM S 
JCCNTINUE 



JLETTER? 

JNO 

JGET IT TO 

JBUMP PNTK' 

JSAVE C 

UNIT C TU 

J NUMBER? 



JNU 



IT 



JPREMATURE EGL 
JSAVE H.L 

JGET VAR. LOCATION 
JPUT ON STACK, GET H,^ 

JVARIABLE tc d,e 
JRESTDRE C 

JSAVE VAR NAME 



ibUMP PNTR'S 

JEVALUATE EXPRESSION 

^VARIABLE LOCATION 

J^RITE VALUE 

JSAVE PNTR TO VARIABLE 

JGFT H.L BACK 

JCHECK EOL 



JCHECK FO* 'TO' 



{BUMS PNTR'S 
JCHECK EOL 

JEVALUATE LIMIT 

JSAVE H,L 

JSAVE LIMIT VALUE 



JGET H.L 

JLJUK FUR 'STEP 



JCHECK EOL 
JGET STEP SIZE 



IS 



L1M 
STk 

H,L 



IU LOCATION VNAME 
IS IN LOCATION VLOC 

.... INITIALIZED 

BYTE I OCATIUN FL IMT 

D TO CSY O.E 

TER, COUNTER AS USUAL 



FSYM 
FEXST 



Utr-Ll M 
CQPDH 



JSAVE PNTR TO STEP 

JGET VARIABLE NAME 

JMASK 

JMASK OFF TOP 2 BITS 

;SET UP T(.' CALL FSYM 

JFIND ENTRY 

JIT hAS THERE 

JIT HASN'T, SAVE H.L 

SUPDATE NXTSP 

JADD 6 TO H.L 



;NEW VALUE OF NXTSP 
JCHECK MEMORY 
'.GET ADD. IN DATA BLOCK 
IAUDRESS OF STEP SIZE 
JSTORE IT 

JPNT TO hHERE VAR. PNTR 



JSECCNO BYTE 

iPNT 10 WHERE KFPNI OOt 



INX h 

LDA KFPNT 

MUV H,A 

INX H 

loa Ktrm*i 

MOV HtA 
CURRENf VIMHC ON NESTING 

LXI HtO 

OAI) SP 

SHLD VLOC 

LHLD NISI 

MOV A,C 



JANUARY 1977 



INTERFACE AGE 103 



SOFTWARE SECTION 



MICROCOMPUTER DEVELOPMENT SOFTWARE 



EBU 
ErtF 
EC2 
EC3 

EC4 
EC7 
EC8 

ecs 

EC* 
ECB 
ECE 
EDI 
ED2 
EU5 



1EUC 

IE 015 

1FDE 

1EDF 

lEEO 

1EE3 

1EE6 

1E-F9 

E C A 

ErH 

LE'J 

t-F.f 

EF> 



eii if 
ec 21 



CD F6 15 
CD 22 12 
L)2 9 A IF 



CA FU IE 
CO 14 12 
!)2 9A IF 



EF9 



ETA 

EFD 
F M 
F01 

:.fo'. 

1FD7 
If Ud 

FOA 
>0U 

FOE 

f-JF 

FIO 

fll 
IFl'f 
IF lb 

rit. 

. F \<) 

FIC. 

f 10 

F1F 

F2() 
.F21 

F24 
IF25 

F28 

F2H 
T2C 
,F2l) 
..F2E 
IF 2F 

F 31 

F32 

F3J 

F35 

F36 

F37 

F3A 

F3B 

F3C 

.F30 
F3F 

IF3F 
F40 
F41 
F44 
F47 
r-4B 
F4A 
F4D 
FsU 
F53 
F5fa 
F57 
F5A 
F51J 
F5E 
F6L 
F64 

LFt>5 
F66 
F69 

lFf.A 
F6K 
F6C 
f M) 

1F6E 
F6F 
F70 
F71 
F74 
F77 
.F78 
F79 
F7C 
F7E 
FBI 
FB3 
_FB6 
1F83 
FBB 

_F3l) 
1F90 
F92 
,F9b 
IF97 
.F9A 
1F9C 



JE 02 

CD 315 U 

CD A8 17 

il 7C 21 

CD Ao 1? 
1)1 



34 

3* 

C3 8C IB 
3E 09 
C3 BE 15 
3E 16 
C3 BE 15 
3F 17 
C3 Bt 15 
3E 18 
C3 BE 15 
3E 19 
C3 BE 15 
3E 20 
C3 8E 15 
3E 21 
C3 Bt 15 



AGA 
ARYES 

BINQP 

8ND3 

C 

CHAR5 

CLSUB 

capuH 

CVBl 

OF XL 

DOL 

ENTRY 

ER16 

ER20 

ER8 

ERROR 

Fl 

FCUMP 

FIX 

FNDSB 

FOR 11 

FDRM3 

F0RM7 

FPERR 

FWAM 

GOSUB 

GTRA 

HSRIN 

ICP4 

IEND 

INCPT 

INPUT 

ISR12 

ISRT3 

1SRT7 

KASE 

KDAT4 

KL4 

KONT 

LADD 

LET 

LMUL 



HCHK 

HEHST 

MUDE1 

HULT2 

NEXT1 

NL6 

NOENT 

NOT 3 

NUSUB 

0DA10 

O0AT4 

Q0AT8 

QKLET 



0007 
AG2 

acn 

A3B 
5A6 
OJOl 
.508 
OCC 
7AB 
24B 
IFDC 
9EC 
671 
F81 
F95 
A22 
15BE 
44E 
023 
915 
LOSE 
440 
446 
444 
A5fl 
21" 
1DD0 
70S 
4D5 
,600 
B8C 
607 
B4C 
17A 
0D4 
..144 
2160 
13C0 
2156 
1838 
OFDO 
1B0D 
0F03 



0FF4 
2100 
1997 
2164 
1EFD 
2151 
1646 
1D08 
1D70 
14CB 
1481 
14B7 



CP1 
JZ 
NSTOK: SPHL 

XCHG 

LHLD 
PUSH 
DCX 
DCX 
XCHG 
SHLD 
LHLO 
SPHL 
J MP 
FONE: OB 

; NEXT STATFMENT PROCESSOR 

NEXT: LHLO CPNT 

[NX H 

INX H 

I NX H 

INR C 

CALL ICP7 

CALL ALPHA 

JNC FR21 

MUV B,H 

MfW DtC 

MVI CO 

INX H 
i . . 



NO PROGRAM FRRORS 



CALL 

JNC 
MJV 

ncp 

JNZ 

LXI 

DAD 

SHLt) 

LHl.ll 

MOV 

CPI 

J2 

SPHL 

POP 

MOV 

JNZ 

MOV 

CMP 

JNZ 

LHLD 

SPHL 

MVI 

A H A 

M'JV 

CALL 

XCHG 

LXI 

CALL 

INX 

INX 

INX 

LDAX 

ANI 

RAL 

cmc 

MVI 

PAL 

INK 

STA 

INX 

XCHG 

MOV 

INX 
MUV 
INX 
PUSH 
LXI 
CALL 
XCHG 
MVI 
CALL 
CAIL 
LXI 
CALL 
POP 
LXI 
CALL 
PUSH 
CALL 
LXI 
CMP 
POP 
JZ 
INX 
INX 
5 NX 
INX 
MOV 
INX 
MOV 
XCHG 
JMP 
LXI 
INR 
INP- 
JMP 
MVI 
JMP 
MVI 
JMP 
MVI 

JMP 
MVI 
JMP 
MVI 
JMP 
MVI 
JMP 
MVI 
JMP 
END 



G.A 
FSYM 



A, 2 

hinup 

COPDH 

H.FHLGl 

COPDH 



IEND 
A. 9 

ERROt 
A.16H 

ERR Of 



A|LB1 

ERROR 
A.19H 

ERROR 
A.20H 
ERROR 
A.2IH 
ERROR 



*>YMttUL TABLE 



ADOJ 

ALPHA 
ASftC 
BMPTR 
BUTNS 
CI 

CHEKE 
CUNT 
CPNT 
CVB2 
DIM 
F 

EOK 
FR17 
ER2 !. 
ER9 
tPRKl 
FALSE 
FOAT 
FLDFU 
FONE 
FDRL2 
F0RM4 
FURM8 
FREGl 
GET 
GOT (I 
H 
AGA 
CP7 
FRT 
NP 
NSER 
SRIA 
SRT4 
SP.T8 
KDATl 
KDATA 
KL6 
L 

LDIV 
LIS1 
LOK 
M 
M3 

MDBC 
HESCR 
MORE 
NDOU 
NFPER 
NLEl 
NOLIN 
NSRCH 
NXTDN 
GOATl 
0DAT5 
ODAT-9 
QKN 



A56 

111 

A59 
L9BB 
"IAA 

219 

9Bl 

T7B 

15 B 

268 
.720 
0003 

9FA * 

F86 

F9A 

F7C 

502 

D12 

96F 

820 

ED5 

43F 

445 
1443 

M% 

700 
t'O04 

CBD 

5F6 

C7D 

973 

08F 

0A2 

0D7 

148 

34F 

34B 
2158 
0005 
HFD6 

LEA 

BED 
0006 

OIF 

A90 

iHI 

Bi 

275 

191 
288 
F74 
464 
48B 



AR 
B 

8ND1 
BOUND 
CALLP 
CHKl 
CONV 
CREG 


DIV 
ECAV 
ER10 
ER1B 
ER6 
ERLN 
EVAL 
FBAC 
FEXST 
FLIMT 
FOR 
F0RM1 
F0RH5 
F0P.M9 
FREG2 
GKEY 
GREG 
HLINP 
BUF 
CP8 

NPER 
SR10 
SRT1 
SRT5 
SRT9 



LPNT 

HI 

H4 

HE MEN 

MINSE 

MULT 

NEST 

NL2 

NLE2 

NO MAT 

NSTOK 

NXTSP 

00AT2 

0DAT6 

BBSS* 



la 12 

1614 

0100 

156C • 

15 4D 

10 5 A 

1^A3 

0FE5 

21B4 

0002 

1ABD 

19D1 

IC78 

IF 80 

172C 

15 OF 

19C7 

lb 76 

1E80 

2190 

1DE7 

1448 

1449 

1442 

2180 

16C6 

2177 

2186 

2101 

15FB 

ICA8 

IB50 

116H 

10BD 

110F 

1152 

1364 

2156 

2158 

16AE 

2161 

1101 

2152 

1000 

1042 

27FF 

19 30 

OFEB 

iUi 

1284 
163B 
IEC2 * 
2159 
146A 

}J11 

1B25 * 



1NEED ONLY CCMPARE PAGE 

;FUR'S NEXTEC TUG DEEPL 

iLOAD NCW SP 

;SAVE NEST SP 

'.GET INDEX NAME 

;SAVE IT 

;UPOATE NEST SP 

SSAVE IT 

;RESTURE OLD SP 



;FIX PNTR' S 



NEXT1 
NUMB 
EK21 



HiU 

SP 

VLOC 
NEST 
A.L 

BUTNS AM) 3770 
CR19 

H 



;LETTfcR? 
;N0. ERKOR 
;YbS, GET IT 
jSAtft c 
UNIT C TU 
JBUMP PNTP'S 



i>1Ui LRKUI" 

IYES, GET IT 
ISHOULO BE ECL 



;SAVE IT 

;GLT NEST SP 
;CCMPARE WITH BDTTOM 

;NEXT BEFORE FOR 
;LOAD SP 
JGET LAST INDEX 
;CCMPAKt IC CURRENT 



;NESTING ERROR 



;ALL CK, RESTORE OLD SP 



SF IND SYMtiCL 
JADORESS TO D,E 
;CUPY STEP TC FREGl 

;PNT TO CHARACTERISTIC 



;get it 

-.GET SIGN 

iROTATE II INTO CARRY 

COMPLEMENT IT 

;MAKE SURI A=0 

;RDTATE Ti; LSB 

;BUMP BY LhE 

;SAVE lit ITS »l IF - 

;PNT TO VAPUBLE PNTR 

'.GET IT. TO DE 



;SAVC DATA BLOCK PNTR. 
;C0PY VARIbLE VALUE T] 
;SAVE VARIABLE LOCATION 

;SET UP TO ADD 
tANO DO IT 

;CCPY TO VARIABLE 

;ANO TO FRfcGl FOR COHPA 



;SAVE DATA BLOCK PNTR 

JCOMPARF 

JCOMPARE WITH STEP TYPE 

;GET DATA BLCCK PNTR. 
;YES => LLOP ODNE 
;LOGP NUT' DONE 
;PNT TO TRANSFER ADO. 



;GET IT TO H,L 



;POP NEST STACK 



!•«' EXPECTEDINOTE: NO 
;FOR 1ND1CESI 
;BAD SYNTAX NEAR •TO' 
; IN FOR STATEMENT 
IFOR'S NESTED TOO OEEPL 

;«NEXT' EXECUTED BEFORE 

-.NESTING EkRCRt •FOR'-' 

;t*AD INOEX IN FOR-NEXT 



BAC 

BND2 

BUPT 

CHAR2 

CHKHD 

CUPD1 

CVB 



1220 
15A3 
1890 ' 



ENDD 

ISi§ 

ER7 

ERRET 
EX PRE 



IF90 
1BE6 
1BC8 
1AD6 



GOOD 

GSENT 

HOME 

ICP2 

I DONE 

ILOOP 

INPOK 

ISR11 

ISRT2 

ISRT6 

JTBL 

KDAT3 

KL2 

KLINE 

L2 

LENGT 

LHCM 

LSUB 

MIA 

H4A 

HEHFU 1514 



1932 
1703 
1624 
1605 
1983 
68C 

?!? 

0C4 
121 
6D6 
39E 



128B 
1271 
OFDF 
0FD9 
1013 
•047 



111? 



PI 


288 


PEND 


846 


pinst 


I.M 




PREXP 


DB5 




AED 




C4G 


0STR1 


410 


QUOTE 


AH4 


RINST 


8 36 


$4 


*?* 


S8SAV 2150 


SCULN 


B07 


SINEO 


D3B 


SP 0006 


STNER 


BCB 


STPNT 


1RH 


SUBB 




THEN 


019 


T1N4A 


40 H 


TRUE 


1)16 


VAR 


8hD 


VNAHE 216C 


WFPER 


ATI 


ZROL 


3FCD 







PAD 


12AD 


PARLP 


1D9D 






PIN1A 


14DE 


PIN3 




PK1 


5Uf b 


PK2 


^3 


PLODP 


mi 






PR 11 


1C63 










PT1 


10 6D 










QCHEK 
QTCHK 


1AC8 










120E * 










RELAT 


1CD5 












1307 * 






S4A 
SCI 




S5 


13 3F 


SAW 


1C32 




SCALR 


1881 


SCHEH 


21A0 






SEND 

SONHD 










18AA 


IB39 


SORCE 




SPACE 


1981 
1BAF 


STAC 
STGKV 


2196 

1BA0 
0014 
12F7 


nr 


1E56 
























TIN2 


13F6 


TIN4 


2196 






TIN5A 


1404 






13C9 
218A 
12DF 


VI 


1815 
21 A A 
12 FO 


VALUE 


I 


VARAD 


VEND 


WFOp; 


WHAT 


119E 


12D0 


WRIT1 



BACK ISSUES 

While Supply Lasts!! 

APRIL 1976 

MAY 1976 

AUGUST 1976 

OCTOBER 1976 

NOVEMBER 1976 

Check our distributors first! If not in stock then send $1 .75 plus .50 
postage and handling for each issue you require. All months of issue 
not listed are no longer available. 

SEND TO 

McPheters, Wolfe tt Jones 

"BACK /SSU£S" 

P.O. Box 1234 

Cerritos. CA 90701 



INTERFACE AGE 

IS SEEKING 

ARTICLES 



NUMB 

OBUFF 

0DAT3 

0DAT7 

OKK 

OUTR 



1478 
14A0 
1847 
17BB 



Here is the opportunity for 
Computer Clubs to benefit. 
For each article accepted from 
a club member and contain- 
ing an additional cover letter 
signed by the club's 
Secretary, INTERFACE AGE 
will pay a $25.00 bonus to the 
club's treasury over and above 
the customary author's hon- 
orarium and the club will be 
included in the by line. 
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